5 |
'(FTYPE (FUNCTION (T T) FIXNUM) PROCLAIMED-ARGD ANALYZE-REGS1 |
'(FTYPE (FUNCTION (T T) FIXNUM) PROCLAIMED-ARGD ANALYZE-REGS1 |
6 |
ANALYZE-REGS)) |
ANALYZE-REGS)) |
7 |
(PROCLAIM |
(PROCLAIM |
8 |
'(FTYPE (FUNCTION ((VECTOR STRING-CHAR)) T) DASH-TO-UNDERSCORE)) |
'(FTYPE (FUNCTION ((VECTOR CHARACTER)) T) DASH-TO-UNDERSCORE)) |
9 |
(PROCLAIM '(FTYPE (FUNCTION (T) (VALUES T T)) GET-SYM)) |
(PROCLAIM '(FTYPE (FUNCTION (T) (VALUES T T)) GET-SYM)) |
10 |
(PROCLAIM |
(PROCLAIM |
11 |
'(FTYPE (FUNCTION (T) UNSIGNED-SHORT) VAR-DYNAMIC VAR-REGISTER)) |
'(FTYPE (FUNCTION (T) UNSIGNED-SHORT) VAR-DYNAMIC VAR-REGISTER)) |
13 |
(PROCLAIM '(FTYPE (FUNCTION (LIST FIXNUM) T) BINARY-NEST-INT)) |
(PROCLAIM '(FTYPE (FUNCTION (LIST FIXNUM) T) BINARY-NEST-INT)) |
14 |
(PROCLAIM '(FTYPE (FUNCTION ((ARRAY T (*))) T) COPY-ARRAY)) |
(PROCLAIM '(FTYPE (FUNCTION ((ARRAY T (*))) T) COPY-ARRAY)) |
15 |
(PROCLAIM |
(PROCLAIM |
16 |
'(FTYPE (FUNCTION ((VECTOR STRING-CHAR) FIXNUM FIXNUM) T) |
'(FTYPE (FUNCTION ((VECTOR CHARACTER) FIXNUM FIXNUM) T) |
17 |
DASH-TO-UNDERSCORE-INT)) |
DASH-TO-UNDERSCORE-INT)) |
18 |
(PROCLAIM '(FTYPE (FUNCTION (T T *) *) T3DEFUN-AUX)) |
(PROCLAIM '(FTYPE (FUNCTION (T T *) *) T3DEFUN-AUX)) |
19 |
(PROCLAIM |
(PROCLAIM |