/[gcl]/gcl/lsp/sys-proclaim.lisp
ViewVC logotype

Diff of /gcl/lsp/sys-proclaim.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by camm, Wed Oct 12 19:14:06 2005 UTC revision 1.17 by camm, Thu Oct 13 21:26:20 2005 UTC
# Line 8  Line 8 
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))
# Line 69  Line 69 
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

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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