/[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.7 by camm, Thu Aug 5 22:17:17 2004 UTC revision 1.8 by camm, Fri Jan 7 17:58:33 2005 UTC
# Line 6  Line 6 
6  (PROCLAIM '(FTYPE (FUNCTION (FIXNUM FIXNUM) T) MLIN))  (PROCLAIM '(FTYPE (FUNCTION (FIXNUM FIXNUM) T) MLIN))
7  (PROCLAIM '(FTYPE (FUNCTION (T) T)  COPY-ARRAY COPY-INFO DASH-TO-UNDERSCORE))  (PROCLAIM '(FTYPE (FUNCTION (T) T)  COPY-ARRAY COPY-INFO DASH-TO-UNDERSCORE))
8  (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM T) FIXNUM)  PUSH-ARRAY))  (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM T) FIXNUM)  PUSH-ARRAY))
9  (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM FIXNUM T) FIXNUM) BSEARCHLEQ))  (PROCLAIM '(FTYPE (FUNCTION (T T SEQIND SEQIND T) SEQIND) BSEARCHLEQ))
10  (PROCLAIM '(FTYPE (FUNCTION (T) FIXNUM) F-TYPE))  (PROCLAIM '(FTYPE (FUNCTION (T) FIXNUM) F-TYPE))
11  (PROCLAIM  (PROCLAIM
12      '(FTYPE (FUNCTION (T T) FIXNUM) ANALYZE-REGS PROCLAIMED-ARGD      '(FTYPE (FUNCTION (T T) FIXNUM) ANALYZE-REGS PROCLAIMED-ARGD
# Line 28  Line 28 
28              TOO-FEW-ARGS ASSIGN-DOWN-VARS C2MULTIPLE-VALUE-BIND BOOLE3              TOO-FEW-ARGS ASSIGN-DOWN-VARS C2MULTIPLE-VALUE-BIND BOOLE3
29              C1DM CMP-EXPAND-MACRO C2CASE SUBLIS1-INLINE T3DEFCFUN              C1DM CMP-EXPAND-MACRO C2CASE SUBLIS1-INLINE T3DEFCFUN
30              GET-INLINE-INFO C1STRUCTURE-REF1 C2PRINC CAN-BE-REPLACED*              GET-INLINE-INFO C1STRUCTURE-REF1 C2PRINC CAN-BE-REPLACED*
31              ADD-FAST-LINK WT-MAKE-CCLOSURE MAKE-INLINE-STRING INLINE-TYPE-MATCHES              ADD-FAST-LINK WT-MAKE-CCLOSURE MAKE-INLINE-STRING
32              C2LET* C2TAGBODY C2GO C2PROGV WT-INLINE-COND WT-INLINE-FIXNUM))              C2LET* C2TAGBODY C2GO C2PROGV WT-INLINE-COND WT-INLINE-FIXNUM))
33  (PROCLAIM  (PROCLAIM
34      '(FTYPE (FUNCTION (T T T T) T) T3DEFUN-VARARG T3DEFUN-NORMAL      '(FTYPE (FUNCTION (T T T T) T) T3DEFUN-VARARG T3DEFUN-NORMAL INLINE-TYPE-MATCHES
35              C2CALL-GLOBAL C1MAKE-VAR WT-GLOBAL-ENTRY              C2CALL-GLOBAL C1MAKE-VAR WT-GLOBAL-ENTRY
36              C2CALL-UNKNOWN-GLOBAL MY-CALL C2STRUCTURE-REF C2SWITCH))              C2CALL-UNKNOWN-GLOBAL MY-CALL C2STRUCTURE-REF C2SWITCH))
37  (PROCLAIM  (PROCLAIM

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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