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

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

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:43:58 1999 UTC revision 1.1.1.1.14.1 by camm, Tue Sep 23 18:37:03 2003 UTC
# Line 2  Line 2 
2  (IN-PACKAGE "COMPILER")  (IN-PACKAGE "COMPILER")
3  (PROCLAIM '(FTYPE (FUNCTION (T) FIXNUM) F-TYPE))  (PROCLAIM '(FTYPE (FUNCTION (T) FIXNUM) F-TYPE))
4  (PROCLAIM  (PROCLAIM
5      '(FTYPE (FUNCTION (T T) FIXNUM) ANALYZE-REGS PROCLAIMED-ARGD      '(FTYPE (FUNCTION (T T) FIXNUM) PROCLAIMED-ARGD ANALYZE-REGS
6              ANALYZE-REGS1))              ANALYZE-REGS1))
7  (PROCLAIM  (PROCLAIM
8      '(FTYPE (FUNCTION (T T T) *) WT-INLINE C2IF C2FLET C2LABELS      '(FTYPE (FUNCTION (T T T) *) WT-INLINE C2COMPILER-LET C2IF C2FLET
9              C2COMPILER-LET))              C2LABELS))
10  (PROCLAIM  (PROCLAIM
11      '(FTYPE (FUNCTION (T T T T) *) C1DM-VL C1DM-V C2DM C2RETURN-FROM      '(FTYPE (FUNCTION (T T T T) *) C1DM-VL C1DM-V C2RETURN-FROM
12              C2APPLY-OPTIMIZE))              C2APPLY-OPTIMIZE C2DM))
13  (PROCLAIM '(FTYPE (FUNCTION (T T *) *) T3DEFUN-AUX))  (PROCLAIM '(FTYPE (FUNCTION (T T *) *) T3DEFUN-AUX))
14  (PROCLAIM  (PROCLAIM
15      '(FTYPE (FUNCTION (T T T T) T) C2CALL-GLOBAL WT-GLOBAL-ENTRY      '(FTYPE (FUNCTION (T T T T) T) T3DEFUN-VARARG T3DEFUN-NORMAL
16              C2CALL-UNKNOWN-GLOBAL SYSTEM::RECORD-FN C1MAKE-VAR C2SWITCH              MY-CALL WT-GLOBAL-ENTRY C1MAKE-VAR C2STRUCTURE-REF C2SWITCH
17              C2STRUCTURE-REF T3DEFUN-VARARG T3DEFUN-NORMAL MY-CALL))              C2CALL-GLOBAL C2CALL-UNKNOWN-GLOBAL))
18  (PROCLAIM  (PROCLAIM
19      '(FTYPE (FUNCTION (T T T T T) T) T3LOCAL-DCFUN T3LOCAL-FUN T2DEFUN      '(FTYPE (FUNCTION (T T T) T) BOOLE3 WT-INLINE-COND WT-INLINE-FIXNUM
20              T2DEFENTRY T3DEFENTRY C1APPLY-OPTIMIZE C2STRUCTURE-SET              WT-INLINE-INTEGER C1MAP-FUNCTIONS WT-INLINE-CHARACTER
21              T3DEFUN-LOCAL-ENTRY T3DEFUN))              WT-INLINE-LONG-FLOAT WT-INLINE-SHORT-FLOAT C2MAPCAR C2MAPC
22  (PROCLAIM              C2MAPCAN FIX-DOWN-ARGS WT-IF-PROCLAIMED SET-VAR
23      '(FTYPE (FUNCTION (T T T) T) ADD-FAST-LINK INLINE-TYPE-MATCHES              C1STRUCTURE-REF1 ASSIGN-DOWN-VARS CJF C2MULTIPLE-VALUE-BIND
24              C2FUNCALL-SFUN WT-IF-PROCLAIMED C2LET WT-INLINE-COND              C2PRINC C1DM TOO-MANY-ARGS T3DEFCFUN TOO-FEW-ARGS
25              FIX-DOWN-ARGS WT-INLINE-FIXNUM WT-INLINE-CHARACTER              CMP-EXPAND-MACRO ADD-FUNCTION-PROCLAMATION
26              ASSIGN-DOWN-VARS WT-INLINE-LONG-FLOAT WT-INLINE-SHORT-FLOAT              ADD-FUNCTION-DECLARATION CAN-BE-REPLACED* C2LET*
27              SUBLIS1-INLINE C1DM C1STRUCTURE-REF1 C2CASE GET-INLINE-INFO              SUBLIS1-INLINE CHECK-VDECL GET-INLINE-INFO C2TAGBODY C2GO
28              CJT C2LET* CJF T3DEFCFUN CAN-BE-REPLACED* TOO-MANY-ARGS              C2CASE AND-FORM-TYPE CHECK-FORM-TYPE C2FUNCALL-SFUN CJT
29              TOO-FEW-ARGS C2TAGBODY C2PROGV C2GO CMP-EXPAND-MACRO              C2LET ADD-FAST-LINK INLINE-TYPE-MATCHES C2PROGV))
30              AND-FORM-TYPE C2MAPCAR ADD-FUNCTION-PROCLAMATION  (PROCLAIM
31              CHECK-FORM-TYPE ADD-FUNCTION-DECLARATION C2MAPC C2MAPCAN      '(FTYPE (FUNCTION (T T *) T) INLINE-ARGS C2FUNCALL C2LAMBDA-EXPR))
32              C1MAP-FUNCTIONS CHECK-VDECL C2MULTIPLE-VALUE-BIND C2PRINC  (PROCLAIM
33              SET-VAR))      '(FTYPE (FUNCTION (T T T T T) T) T3DEFUN-LOCAL-ENTRY T3DEFUN
34  (PROCLAIM              T3LOCAL-DCFUN T3LOCAL-FUN C1APPLY-OPTIMIZE C2STRUCTURE-SET
35      '(FTYPE (FUNCTION (T T *) T) C2FUNCALL C2LAMBDA-EXPR INLINE-ARGS))              T2DEFUN T2DEFENTRY T3DEFENTRY))
36  (PROCLAIM  (PROCLAIM
37      '(FTYPE (FUNCTION (T T T T T T) T) DEFSYSFUN T2DEFMACRO T3DEFMACRO))      '(FTYPE (FUNCTION (T T T T T T) T) DEFSYSFUN T2DEFMACRO T3DEFMACRO))
38  (PROCLAIM '(FTYPE (FUNCTION (T T T *) T) WT-SIMPLE-CALL))  (PROCLAIM '(FTYPE (FUNCTION (T T T *) T) WT-SIMPLE-CALL))
39  (PROCLAIM '(FTYPE (FUNCTION NIL *) WT-DATA-FILE WT-FASD-DATA-FILE))  (PROCLAIM '(FTYPE (FUNCTION NIL *) WT-FASD-DATA-FILE WT-DATA-FILE))
40  (PROCLAIM  (PROCLAIM
41      '(FTYPE (FUNCTION NIL T) TAIL-RECURSION-POSSIBLE      '(FTYPE (FUNCTION NIL T) WT-NEXT-VAR-ARG WT-FIRST-VAR-ARG
42              CLOSE-INLINE-BLOCKS C1T CVS-PUSH WT-CVARS              CLOSE-INLINE-BLOCKS WT-DATA-BEGIN WT-DATA-END C1T
43              ADD-LOAD-TIME-SHARP-COMMA WT-C-PUSH RESET-TOP              ADD-LOAD-TIME-SHARP-COMMA RESET-TOP CVS-PUSH WT-CVARS
44              INIT-ENV VS-PUSH BABOON PRINT-CURRENT-FORM              PRINT-CURRENT-FORM INIT-ENV INC-INLINE-BLOCKS WT-C-PUSH
45              NO-MAKE-PROCLAIMS-HACK WT-NEXT-VAR-ARG INIT-FN C1NIL              C1NIL VS-PUSH BABOON TAIL-RECURSION-POSSIBLE CCB-VS-PUSH
46              LIST-UNDEFINED-FUNCTIONS WT-DATA-BEGIN              WFS-ERROR))
47              LIST-UNCALLED-FUNCTIONS WT-DATA-END CCB-VS-PUSH WFS-ERROR  (PROCLAIM '(FTYPE (FUNCTION (*) *) INLINE-BOOLE3))
48              CURRENT-FN CLEAR-CALL-TABLE))  (PROCLAIM
49  (PROCLAIM      '(FTYPE (FUNCTION (*) T) MAKE-INFO FCALLN-INLINE MAKE-BLK
50      '(FTYPE (FUNCTION (*) *) INLINE-BOOLE3 DUMP-FN-DATA              LIST-INLINE LIST*-INLINE MAKE-TAG MAKE-FUN CS-PUSH MAKE-VAR
51              MAKE-ALL-PROCLAIMS))              WT-CLINK))
 (PROCLAIM  
     '(FTYPE (FUNCTION (*) T) MAKE-INFO FCALLN-INLINE MAKE-FUN MAKE-VAR  
             MAKE-FN MAKE-PROCLAIMS MAKE-TAG WT-CLINK LIST-INLINE CS-PUSH  
             LIST*-INLINE MAKE-BLK))  
52  (PROCLAIM  (PROCLAIM
53      '(FTYPE (FUNCTION (T) *) T1EXPR C2AND C2OR T1EVAL-WHEN WT-LOC      '(FTYPE (FUNCTION (T) *) SET-LOC C2OR T1EXPR C2EXPR C2PROGN
54                T1EVAL-WHEN CMP-TOPLEVEL-EVAL WT-TO-STRING CMP-EVAL WT-LOC
55              WT-FIXNUM-LOC WT-CHARACTER-LOC WT-LONG-FLOAT-LOC              WT-FIXNUM-LOC WT-CHARACTER-LOC WT-LONG-FLOAT-LOC
56              WT-SHORT-FLOAT-LOC C2EXPR CMP-EVAL CMP-TOPLEVEL-EVAL              WT-SHORT-FLOAT-LOC C2AND))
             WT-TO-STRING SET-LOC C2PROGN))  
57  (PROCLAIM  (PROCLAIM
     '(FTYPE (FUNCTION (T) T) C1NTHCDR-CONDITION C1NTHCDR C1LOCAL-FUN  
             C1DOWNWARD-FUNCTION C1RPLACA-NTHCDR CMP-MACRO-FUNCTION  
             WT-DATA-PACKAGE-OPERATION C2DOWNWARD-FUNCTION C1LIST-NTH  
             TYPE-FILTER T1ORDINARY C1BOOLE-CONDITION  
             FUNCTION-RETURN-TYPE C1BOOLE3 T1PROGN C1ASH-CONDITION  
             CHECK-DOWNWARD VOLATILE C1ASH PUSH-ARGS C1LENGTH  
             PUSH-ARGS-LISPCALL NEED-TO-SET-VS-POINTERS FASD-INDEX  
             INFO-P FASD-PACKAGE FASD-DIRECTION VARARG-P FASD-EOF  
             MAXARGS NAME-TO-SD FASD-TABLE UNWIND-NO-EXIT FASD-STREAM  
             WT-DOWNWARD-CLOSURE-MACRO THE-PARAMETER REPLACE-CONSTANT  
             ADD-OBJECT FASD-MACRO FASD-TABLE_LENGTH  
             ARGS-CAUSE-SIDE-EFFECT C1IF C2FUNCALL-AUX FASD-FILEPOS  
             WT-LIST SET-UP-VAR-CVS INFO-CHANGED-VARS C1AND C1FUNOB  
             C1DM-BAD-KEY INFO-REFERRED-VARS INFO-TYPE C1OR  
             WT-FUNCTION-LINK PARSE-CVSPECS C2DM-RESERVE-VL  
             INFO-SP-CHANGE NAME-SD1 WT-FUNCALL-C C1VAR C2DM-RESERVE-V  
             INFO-VOLATILE T1DEFUN SAVE-FUNOB T1DEFMACRO REP-TYPE  
             AET-C-TYPE C1CATCH WT1 T1CLINES C1ECASE WT-H1 T1DEFCFUN  
             C1UNWIND-PROTECT T1DEFENTRY CHECK-VREF T1DEFLA C1THROW  
             RECORD-ARG-INFO C1ADD-GLOBALS T1DEFVAR INLINE-POSSIBLE  
             C1FLET C2VAR-KIND C1FMLA-CONSTANT SET-PUSH-CATCH-FRAME  
             T2ORDINARY C1LET C1LABELS T2DECLARE C1LET* C1MACROLET  
             VAR-KIND  FUN-P  
             C1LOCAL-CLOSURE T3CLINES C1STACK-LET FUN-NAME FUN-REF  
             C2EXPR* FUN-REF-CCB PROCLAIM CTOP-WRITE FUN-CFUN  
             PROCLAMATION FUN-LEVEL T1DEFINE-STRUCTURE FIXNUM-LOC-P  
             WRITE-BLOCK-OPEN CHARACTER-LOC-P  LONG-FLOAT-LOC-P  
             WT-VV INLINE-TYPE C2VAR SHORT-FLOAT-LOC-P WT-CAR C2LOCATION  
             WT-CDR C1SETQ WT-CADR C1TAGBODY GET-VAR-TYPES C1PROGV  
             WT-VS-BASE GET-VALUE-TYPE1 UNDEFINED-VARIABLE C1GO  
             GET-VALUE-TYPE C1PSETQ WT-DOWN C1PROGN ADD-CALLEE C1SWITCH  
             RESULT-TYPE-FROM-LOC CMP-MACROEXPAND REGISTER SET-RETURN  
             ADD-SYMBOL WT-VS* CMP-MACROEXPAND-1 SET-TOP PUSH-DATA-INCF  
             VAR-P ADD-REG1 WT-DATA1 VAR-NAME ADD-LOOP-REGISTERS  
             ADD-MACRO-CALLEE VAR-REF C2TAGBODY-LOCAL C1EXPR WT-CCB-VS  
             VAR-REF-CCB OBJECT-TYPE C2TAGBODY-BODY FUNCTION-ARG-TYPES  
             VAR-LOC C2TAGBODY-CLB C1MAPCAR SCH-LOCAL-FUN VAR-TYPE  
             RESET-INFO-TYPE C2TAGBODY-CCB C1MAPLIST EMIT-FN FN-P  
             VAR-REGISTER C2GO-LOCAL SCH-GLOBAL C2GO-CLB C1MAPC  
             DEFAULT-INIT C2GO-CCB C1MAPL WT-SWITCH-CASE C1MAPCAN  
             ADD-CONSTANT VERIFY-DATA-VECTOR C1MAPCON BLK-P BLK-NAME  
             GET-ARG-TYPES BLK-REF GET-RETURN-TYPE BLK-REF-CLB FN-NAME  
             TAG-P GET-LOCAL-ARG-TYPES BLK-REF-CCB FN-DEF TAG-NAME  
             C1MULTIPLE-VALUE-CALL GET-LOCAL-RETURN-TYPE BLK-EXIT C2BIND  
             FN-VALUE-TYPE TAG-REF INLINE-BOOLE3-STRING BLK-VALUE-TO-GO  
             FN-FUN-VALUES TAG-REF-CLB C1MULTIPLE-VALUE-PROG1  
             RESULT-TYPE BLK-VAR FN-CALLEES WT-VS TAG-REF-CCB  
             FN-RETURN-TYPE TAG-LABEL C1VALUES GET-INCLUDED FN-ARG-TYPES  
             CLINK TAG-UNWIND-EXIT C2VALUES CONS-TO-LISTA FN-NO-EMIT  
             TAG-VAR C1MULTIPLE-VALUE-SETQ FN-MACROS TAG-SWITCH  
             SYSTEM:UNDEF-COMPILER-MACRO ADD-FN-DATA  
             C1MULTIPLE-VALUE-BIND CONSTANT-FOLD-P C1BLOCK C1PRINC  
             C1STRUCTURE-REF C1TERPRI C1RETURN-FROM C1VREF C1APPLY  
             C1STRUCTURE-SET C1FUNCALL C1RPLACA C2RPLACA C1SHARP-COMMA  
             C1RPLACD C1DEFINE-STRUCTURE C1QUOTE C2RPLACD C1FUNCTION  
             C1MEMQ C2FUNCTION C1MEMBER C1THE C1EVAL-WHEN C1ASSOC  
             C1DECLARE C1COMPILER-LET C1GET C2GET WT-SYMBOL-FUNCTION  
             C1NTH-CONDITION C1NTH))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T) *) WT-INLINE-LOC C1SYMBOL-FUN  
             C2RETURN-LOCAL C1BODY C2DECL-BODY C2BLOCK C2BLOCK-LOCAL))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T *) T) C1LAMBDA-EXPR WT-COMMENT C1CASE CMPERR  
             FAST-LINK-PROCLAIMED-TYPE-P CMPWARN CMPNOTE UNWIND-EXIT  
             ADD-INIT WT-CVAR))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T) T) TYPE>= MAYBE-EVAL C2LIST-NTH-IMMEDIATE  
             COMPILER-CLEAR-COMPILER-PROPERTIES  
             compiler-def-hook  
             WT-MAKE-DCLOSURE C2CALL-LOCAL C2CALL-LAMBDA CMPFIX-ARGS  
             MAKE-INLINE-STRING CO1EQL CO1TYPEP CO1SCHAR ADD-INFO  
             CO1CONS C2PSETQ ARGS-INFO-REFERRED-VARS CO1READ-BYTE  
             CO1READ-CHAR CO1WRITE-BYTE C1EXPR* CHECK-FNAME-ARGS  
             ADD-DEBUG-INFO CO1WRITE-CHAR INLINE-PROC CO1VECTOR-PUSH  
             WT-REQUIREDS CO1SPECIAL-FIX-DECL C2LAMBDA-EXPR-WITHOUT-KEY  
             CO1SUBLIS C1LAMBDA-FUN WT-V*-MACROS C2LAMBDA-EXPR-WITH-KEY  
             C2EXPR-TOP C2EXPR-TOP* C1PROGN* C1ARGS  
             CO1STRUCTURE-PREDICATE C1CONSTANT-VALUE COERCE-LOC  
             SET-JUMP-TRUE C2DM-BIND-VL ARGS-INFO-CHANGED-VARS  
             SET-JUMP-FALSE C2DM-BIND-LOC C2DM-BIND-INIT C2CATCH WT-VAR  
             C2UNWIND-PROTECT C2THROW GET-INLINE-LOC NEED-TO-PROTECT  
             C1FMLA T2SHARP-COMMA CONVERT-CASE-TO-SWITCH C2STACK-LET  
             CAN-BE-REPLACED COERCE-LOC-STRUCTURE-REF SYSTEM::ADD-DEBUG  
             UNWIND-BDS SET-DBIND C2BLOCK-CCB TYPE-OR C2SETQ  
             C2RETURN-CLB WT-FIXNUM-VALUE C2RETURN-CCB  
             WT-CHARACTER-VALUE SHIFT>> WT-LONG-FLOAT-VALUE SHIFT<<  
             WT-SHORT-FLOAT-VALUE C1SETQ1 ADD-VALUE-TYPE JUMPS-TO-P  
             TYPE-AND PROCLAIM-VAR SET-VS SMALL-ALL-T-P SET-BDS-BIND  
             CO1CONSTANT-FOLD PUSH-CHANGED-VARS C2MULTIPLE-VALUE-CALL  
             C2BIND-LOC C2BIND-INIT C2MULTIPLE-VALUE-PROG1  
             STRUCT-TYPE-OPT C1DECL-BODY FAST-READ C2MULTIPLE-VALUE-SETQ  
             CFAST-WRITE MULTIPLE-VALUE-CHECK C2APPLY ADD-ADDRESS  
             RECORD-CALL-INFO C2MEMBER!2 C2ASSOC!2 WT-MAKE-CCLOSURE  
             C2BLOCK-CLB))  
58        '(FTYPE (FUNCTION (T) T) DECLARATION-TYPE WT-VS-BASE ADD-OBJECT
59                C2BIND VOLATILE C2FUNCALL-AUX VAR-NAME C1FUNOB VAR-REF
60                INFO-P VAR-REF-CCB WT-FUNCTION-LINK VAR-LOC WT-FUNCALL-C
61                VAR-TYPE FIXNUM-LOC-P VAR-REGISTER CHARACTER-LOC-P
62                SAVE-FUNOB LONG-FLOAT-LOC-P SHORT-FLOAT-LOC-P
63                VERIFY-DATA-VECTOR WT-DATA-PACKAGE-OPERATION C1MAPCAR
64                C1MAPLIST ARGS-CAUSE-SIDE-EFFECT T1ORDINARY C1MAPC
65                NAME-TO-SD C1MAPL C1PROGN WT-H1 T1PROGN PROCLAIM
66                CHECK-DOWNWARD C1MAPCAN PROCLAMATION C1VAR CHECK-VREF
67                C1MAPCON VAR-P C1VREF ADD-SYMBOL WT-VS* VARARG-P FLAGS-POS
68                MAXARGS C1CATCH C1MULTIPLE-VALUE-CALL C1EXPR
69                C1UNWIND-PROTECT WT-CCB-VS C1MULTIPLE-VALUE-PROG1
70                C2DM-RESERVE-VL INLINE-BOOLE3-STRING INFO-CHANGED-VARS
71                AET-C-TYPE RESULT-TYPE C1THROW C1VALUES C2DM-RESERVE-V
72                INFO-REFERRED-VARS C2VALUES INFO-TYPE GET-INCLUDED
73                C1STRUCTURE-REF SET-PUSH-CATCH-FRAME C1MULTIPLE-VALUE-SETQ
74                INFO-SP-CHANGE CONS-TO-LISTA C1BLOCK C2VAR-KIND
75                INFO-VOLATILE WT-VAR-DECL SET-UP-VAR-CVS
76                C1MULTIPLE-VALUE-BIND C1STRUCTURE-SET CONSTANT-FOLD-P
77                C1RETURN-FROM C1PRINC C1SHARP-COMMA PARSE-CVSPECS
78                C1DOWNWARD-FUNCTION C1DEFINE-STRUCTURE C2DOWNWARD-FUNCTION
79                C1TERPRI T1DEFUN C1APPLY T1DEFMACRO
80                WT-DOWNWARD-CLOSURE-MACRO REPLACE-CONSTANT T1CLINES
81                THE-PARAMETER T1DEFCFUN C1FUNCALL T1DEFENTRY C1DM-BAD-KEY
82                C1RPLACA FASD-STREAM T1DEFLA C2RPLACA FASD-TABLE C1RPLACD
83                BLK-P FASD-EOF C2RPLACD FASD-DIRECTION T2ORDINARY C1MEMQ
84                FASD-PACKAGE T2DECLARE C1QUOTE C1MEMBER FASD-INDEX
85                C1FUNCTION FASD-FILEPOS C2FUNCTION C1ASSOC BLK-NAME
86                FASD-TABLE_LENGTH C1THE BLK-REF FASD-EVALD_FORMS
87                C1EVAL-WHEN C1GET BLK-REF-CLB T3CLINES C1DECLARE C2GET
88                BLK-REF-CCB C1COMPILER-LET C1NTH-CONDITION BLK-EXIT C1NTH
89                BLK-VALUE-TO-GO CTOP-WRITE WT-SYMBOL-FUNCTION
90                C1NTHCDR-CONDITION BLK-VAR C1NTHCDR NAME-SD1
91                UNDEFINED-VARIABLE T1DEFINE-STRUCTURE REGISTER
92                C1RPLACA-NTHCDR C1LIST-NTH PUSH-DATA-INCF WT-DATA1
93                C1BOOLE-CONDITION C1BOOLE3 FUNCTION-ARG-TYPES
94                CMP-MACROEXPAND C1IF C1ASH-CONDITION SCH-LOCAL-FUN
95                CMP-MACROEXPAND-1 C1ASH SCH-GLOBAL C1LENGTH VAR-KIND
96                ADD-CONSTANT ADD-REG1 ADD-LOOP-REGISTERS GET-ARG-TYPES WT1
97                C1ADD-GLOBALS C2TAGBODY-CCB GET-RETURN-TYPE REP-TYPE
98                C2TAGBODY-CLB WRITE-BLOCK-OPEN C1FLET GET-LOCAL-ARG-TYPES
99                C2TAGBODY-LOCAL GET-LOCAL-RETURN-TYPE C2TAGBODY-BODY C1LET
100                C1LABELS WT-SWITCH-CASE C1LET* C2GO-CCB C1MACROLET C2GO-CLB
101                C1STACK-LET C2GO-LOCAL INLINE-POSSIBLE C1TAGBODY C1OR FUN-P
102                SAVE-AVMA WT-LIST C1GO C1LOCAL-CLOSURE TAG-P C1AND
103                C1LOCAL-FUN C1SWITCH CMP-MACRO-FUNCTION OBJECT-TYPE C1ECASE
104                RESET-INFO-TYPE C2EXPR* TAG-NAME DEFAULT-INIT TAG-REF
105                TAG-REF-CLB SET-RETURN PUSH-ARGS WT-DOWN TAG-REF-CCB
106                SET-TOP PUSH-ARGS-LISPCALL TAG-LABEL
107                NEED-TO-SET-VS-POINTERS INLINE-TYPE C2LOCATION
108                TAG-UNWIND-EXIT C2VAR TAG-VAR FUN-NAME C1SETQ TAG-SWITCH
109                FUN-REF SYSTEM:UNDEF-COMPILER-MACRO WT-VS FUN-REF-CCB
110                FIX-OPT C1PROGV WT-VV UNWIND-NO-EXIT FUN-CFUN CLINK WT-CAR
111                FUN-LEVEL C1PSETQ TYPE-FILTER WT-CDR C1FMLA-CONSTANT
112                WT-CADR FUNCTION-RETURN-TYPE))
113    (PROCLAIM
114        '(FTYPE (FUNCTION (T T) *) C2BLOCK-LOCAL C1SYMBOL-FUN
115                C2RETURN-LOCAL C2BLOCK C1BODY C2DECL-BODY WT-INLINE-LOC))
116    (PROCLAIM
117        '(FTYPE (FUNCTION (T *) T) C1CASE UNWIND-EXIT WT-COMMENT CMPERR
118                ADD-INIT CMPWARN CMPNOTE WT-INTEGER-LOC C1LAMBDA-EXPR
119                FAST-LINK-PROCLAIMED-TYPE-P WT-CVAR))
120    (PROCLAIM
121        '(FTYPE (FUNCTION (T T) T) SET-BDS-BIND WT-FIXNUM-VALUE UNWIND-BDS
122                RESULT-TYPE-FROM-ARGS WT-CHARACTER-VALUE C2BIND-LOC
123                WT-LONG-FLOAT-VALUE C2BIND-INIT WT-SHORT-FLOAT-VALUE
124                SHIFT>> ADD-INFO SHIFT<< ARGS-INFO-REFERRED-VARS
125                COMPILER-CLEAR-COMPILER-PROPERTIES MAYBE-EVAL
126                PUSH-CHANGED-VARS C2BLOCK-CCB C1CONSTANT-VALUE C2BLOCK-CLB
127                CMPFIX-ARGS MAKE-INLINE-STRING C1FMLA C1LAMBDA-FUN
128                C2LAMBDA-EXPR-WITH-KEY MULTIPLE-VALUE-CHECK
129                C2LAMBDA-EXPR-WITHOUT-KEY CO1CONSTANT-FOLD C1ARGS C2CATCH
130                C2MULTIPLE-VALUE-CALL C2EXPR-TOP ADD-DEBUG-INFO C1EXPR*
131                C2UNWIND-PROTECT C2RETURN-CCB C2MULTIPLE-VALUE-PROG1
132                C2RETURN-CLB WT-REQUIREDS STRUCT-TYPE-OPT
133                C2THROW C2DM-BIND-LOC WT-V*-MACROS C2DM-BIND-INIT
134                C2MULTIPLE-VALUE-SETQ FAST-READ CFAST-WRITE
135                WT-MAKE-DCLOSURE C2APPLY C2EXPR-TOP* C1PROGN* ADD-ADDRESS
136                T2SHARP-COMMA C2MEMBER!2 COMPILER-DEF-HOOK C2ASSOC!2
137                SYSTEM::ADD-DEBUG WT-MAKE-CCLOSURE SET-DBIND
138                C2LIST-NTH-IMMEDIATE CONVERT-CASE-TO-SWITCH PROCLAIM-VAR
139                CO1LDB CO1EQL JUMPS-TO-P CO1TYPEP COERCE-LOC CO1SCHAR
140                ARGS-INFO-CHANGED-VARS CO1CONS CAN-BE-REPLACED CO1READ-BYTE
141                CO1READ-CHAR CO1WRITE-BYTE CO1WRITE-CHAR WT-VAR
142                CO1VECTOR-PUSH CO1SPECIAL-FIX-DECL C1DECL-BODY CO1SUBLIS
143                CO1STRUCTURE-PREDICATE C2STACK-LET SET-VS GET-INLINE-LOC
144                NEED-TO-PROTECT TYPE-AND SET-JUMP-TRUE SET-JUMP-FALSE
145                C2CALL-LOCAL C2CALL-LAMBDA COERCE-LOC-STRUCTURE-REF C1SETQ1
146                C2PSETQ C2SETQ TYPE>= CHECK-FNAME-ARGS INLINE-PROC))

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.1.14.1

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