1 |
|
|
2 |
(IN-PACKAGE "COMPILER") |
(IN-PACKAGE "COMPILER") |
3 |
|
|
4 |
|
(PROCLAIM '(FTYPE (FUNCTION (T RNKIND) SEQIND) CMP-ARRAY-DIMENSION)) |
5 |
(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM FIXNUM) T) DASH-TO-UNDERSCORE-INT)) |
(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM FIXNUM) T) DASH-TO-UNDERSCORE-INT)) |
6 |
(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM T) T) C-FUNCTION-NAME)) |
(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM T) T) C-FUNCTION-NAME)) |
7 |
(PROCLAIM '(FTYPE (FUNCTION (FIXNUM FIXNUM) T) MLIN)) |
(PROCLAIM '(FTYPE (FUNCTION (FIXNUM FIXNUM) T) MLIN)) |