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 |
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 |