121 |
FUN-REF-CCB C1SETQ TYPE-FILTER TAG-SWITCH UNWIND-NO-EXIT |
FUN-REF-CCB C1SETQ TYPE-FILTER TAG-SWITCH UNWIND-NO-EXIT |
122 |
FUN-CFUN CLINK FUN-LEVEL FUNCTION-RETURN-TYPE)) |
FUN-CFUN CLINK FUN-LEVEL FUNCTION-RETURN-TYPE)) |
123 |
(PROCLAIM |
(PROCLAIM |
124 |
'(FTYPE (FUNCTION (T *) T) UNWIND-EXIT WT-COMMENT CMPERR ADD-INIT |
'(FTYPE (FUNCTION (T *) T) INIT-NAME UNWIND-EXIT WT-COMMENT CMPERR ADD-INIT |
125 |
CMPWARN CMPNOTE C1CASE WT-INTEGER-LOC C1LAMBDA-EXPR |
CMPWARN CMPNOTE C1CASE WT-INTEGER-LOC C1LAMBDA-EXPR |
126 |
FAST-LINK-PROCLAIMED-TYPE-P WT-CVAR)) |
FAST-LINK-PROCLAIMED-TYPE-P WT-CVAR)) |
127 |
(PROCLAIM |
(PROCLAIM |