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 |
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 |