/[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.10 by camm, Wed Jun 22 01:42:28 2005 UTC revision 1.11 by camm, Wed Jun 29 04:21:33 2005 UTC
# Line 51  Line 51 
51      '(FTYPE (FUNCTION NIL T) INIT-ENV WT-NEXT-VAR-ARG WT-FIRST-VAR-ARG      '(FTYPE (FUNCTION NIL T) INIT-ENV WT-NEXT-VAR-ARG WT-FIRST-VAR-ARG
52              WT-DATA-BEGIN WT-DATA-END C1NIL TAIL-RECURSION-POSSIBLE              WT-DATA-BEGIN WT-DATA-END C1NIL TAIL-RECURSION-POSSIBLE
53              PRINT-CURRENT-FORM CCB-VS-PUSH WFS-ERROR CVS-PUSH WT-CVARS              PRINT-CURRENT-FORM CCB-VS-PUSH WFS-ERROR CVS-PUSH WT-CVARS
54              C1T INC-INLINE-BLOCKS WT-C-PUSH ADD-LOAD-TIME-SHARP-COMMA              C1T INC-INLINE-BLOCKS ADD-LOAD-TIME-SHARP-COMMA
55              RESET-TOP VS-PUSH BABOON CLOSE-INLINE-BLOCKS))              RESET-TOP VS-PUSH BABOON CLOSE-INLINE-BLOCKS))
56  (PROCLAIM '(FTYPE (FUNCTION (*) *) INLINE-BOOLE3))  (PROCLAIM '(FTYPE (FUNCTION (*) *) INLINE-BOOLE3))
57  (PROCLAIM  (PROCLAIM
# Line 60  Line 60 
60              WT-CHARACTER-LOC WT-LONG-FLOAT-LOC WT-SHORT-FLOAT-LOC C2AND              WT-CHARACTER-LOC WT-LONG-FLOAT-LOC WT-SHORT-FLOAT-LOC C2AND
61              C2OR WT-TO-STRING))              C2OR WT-TO-STRING))
62  (PROCLAIM  (PROCLAIM
63      '(FTYPE (FUNCTION (*) T) MAKE-FUN LIST-INLINE LIST*-INLINE WT-CLINK      '(FTYPE (FUNCTION (*) T) WT-C-PUSH MAKE-FUN LIST-INLINE LIST*-INLINE WT-CLINK
64              FCALLN-INLINE MAKE-BLK CS-PUSH MAKE-VAR MAKE-TAG MAKE-INFO))              FCALLN-INLINE MAKE-BLK CS-PUSH MAKE-VAR MAKE-TAG MAKE-INFO))
65  (PROCLAIM  (PROCLAIM
66      '(FTYPE (FUNCTION (T) T) VAR-REP-LOC TAG-LABEL C1BOOLE3 TAG-UNWIND-EXIT      '(FTYPE (FUNCTION (T) T) VAR-REP-LOC TAG-LABEL C1BOOLE3 TAG-UNWIND-EXIT

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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