21 |
FIND BIT-AND BIT-ANDC1 FIND-IF BIT-ANDC2 FIND-IF-NOT |
FIND BIT-AND BIT-ANDC1 FIND-IF BIT-ANDC2 FIND-IF-NOT |
22 |
BIT-EQV BIT-IOR BIT-NAND BIT-NOR BIT-ORC1 BIT-ORC2 BIT-XOR |
BIT-EQV BIT-IOR BIT-NAND BIT-NOR BIT-ORC1 BIT-ORC2 BIT-XOR |
23 |
INTERSECTION)) |
INTERSECTION)) |
24 |
|
(PROCLAIM '(FTYPE (FUNCTION (T T *) *) BREAK-CALL)) |
25 |
(PROCLAIM |
(PROCLAIM |
26 |
'(FTYPE (FUNCTION (T T T) T) DM-VL SETF-EXPAND-1 |
'(FTYPE (FUNCTION (T T T) T) DM-VL SETF-EXPAND-1 |
27 |
TYPECASE-ERROR-STRING |
TYPECASE-ERROR-STRING |
|
BREAK-CALL |
|
28 |
SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS SHARP-A-READER |
SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS SHARP-A-READER |
29 |
DEPOSIT-FIELD DEFMACRO* DPB CHECK-TRACE-ARGS MAKE-T-TYPE |
DEPOSIT-FIELD DEFMACRO* DPB CHECK-TRACE-ARGS MAKE-T-TYPE |
30 |
GET-SLOT-POS CHECK-S-DATA)) |
GET-SLOT-POS CHECK-S-DATA)) |