8 |
'(FTYPE (FUNCTION (T T) FIXNUM) GET-NODE-INDEX RELATIVE-LINE |
'(FTYPE (FUNCTION (T T) FIXNUM) GET-NODE-INDEX RELATIVE-LINE |
9 |
THE-END)) |
THE-END)) |
10 |
(PROCLAIM |
(PROCLAIM |
11 |
'(FTYPE (FUNCTION ((VECTOR STRING-CHAR)) T) COERCE-SLASH-TERMINATED |
'(FTYPE (FUNCTION ((VECTOR CHARACTER)) T) COERCE-SLASH-TERMINATED |
12 |
RESET-SYS-PATHS)) |
RESET-SYS-PATHS)) |
13 |
(PROCLAIM |
(PROCLAIM |
14 |
'(FTYPE (FUNCTION ((VECTOR STRING-CHAR) *) *) GET-COMMAND-ARG)) |
'(FTYPE (FUNCTION ((VECTOR CHARACTER) *) *) GET-COMMAND-ARG)) |
15 |
(PROCLAIM '(FTYPE (FUNCTION (FIXNUM) FIXNUM) DBL-WHAT-FRAME)) |
(PROCLAIM '(FTYPE (FUNCTION (FIXNUM) FIXNUM) DBL-WHAT-FRAME)) |
16 |
(PROCLAIM |
(PROCLAIM |
17 |
'(FTYPE (FUNCTION (T T *) *) SLOOP::FIND-IN-ORDERED-LIST SUBTYPEP)) |
'(FTYPE (FUNCTION (T T *) *) SLOOP::FIND-IN-ORDERED-LIST SUBTYPEP)) |
69 |
'(FTYPE (FUNCTION NIL *) BREAK-CURRENT BREAK-MESSAGE |
'(FTYPE (FUNCTION NIL *) BREAK-CURRENT BREAK-MESSAGE |
70 |
SIMPLE-BACKTRACE)) |
SIMPLE-BACKTRACE)) |
71 |
(PROCLAIM |
(PROCLAIM |
72 |
'(FTYPE (FUNCTION ((VECTOR STRING-CHAR) FIXNUM) FIXNUM) ATOI)) |
'(FTYPE (FUNCTION ((VECTOR CHARACTER) FIXNUM) FIXNUM) ATOI)) |
73 |
(PROCLAIM |
(PROCLAIM |
74 |
'(FTYPE (FUNCTION NIL T) TOP-LEVEL SLOOP::LOOP-PEEK |
'(FTYPE (FUNCTION NIL T) TOP-LEVEL SLOOP::LOOP-PEEK |
75 |
SLOOP::LOOP-UN-POP SLOOP::LOOP-POP BREAK-HELP |
SLOOP::LOOP-UN-POP SLOOP::LOOP-POP BREAK-HELP |