179 |
(PROCLAIM |
(PROCLAIM |
180 |
'(FTYPE (FUNCTION (T T) *) FIND-DOC NEW-SEMI-COLON-READER NEWLINE)) |
'(FTYPE (FUNCTION (T T) *) FIND-DOC NEW-SEMI-COLON-READER NEWLINE)) |
181 |
(PROCLAIM |
(PROCLAIM |
182 |
'(FTYPE (FUNCTION (T T) T) SLOOP::LOGXOR-SLOOP-COLLECT |
'(FTYPE (FUNCTION (T T) T) copy-type SLOOP::LOGXOR-SLOOP-COLLECT |
183 |
SLOOP::COLLATE-SLOOP-COLLECT SLOOP::COUNT-SLOOP-COLLECT |
SLOOP::COLLATE-SLOOP-COLLECT SLOOP::COUNT-SLOOP-COLLECT |
184 |
NORMALIZE-TYPE-INT CONS^ CONS-LOAD COMPLEX-LOAD COERCE |
NORMALIZE-TYPE-INT CONS^ CONS-LOAD COMPLEX-LOAD COERCE |
185 |
LOGTEST LOGORC2 LOGORC1 LOGANDC2 LOGANDC1 LOGNOR LOGNAND |
LOGTEST LOGORC2 LOGORC1 LOGANDC2 LOGANDC1 LOGNOR LOGNAND |