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

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

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

revision 1.15 by camm, Mon Sep 26 16:45:02 2005 UTC revision 1.16 by camm, Thu Oct 13 21:26:20 2005 UTC
# Line 5  Line 5 
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))
# Line 13  Line 13 
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

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

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