48 |
NSUBSTITUTE-IF-NOT NSUBSTITUTE-IF NSUBSTITUTE COMPLETE-PROP |
NSUBSTITUTE-IF-NOT NSUBSTITUTE-IF NSUBSTITUTE COMPLETE-PROP |
49 |
SUBSTITUTE-IF-NOT SUBSTITUTE-IF SUBSTITUTE MAP CLEAN-TP)) |
SUBSTITUTE-IF-NOT SUBSTITUTE-IF SUBSTITUTE MAP CLEAN-TP)) |
50 |
(PROCLAIM |
(PROCLAIM |
51 |
'(FTYPE (FUNCTION (T T T T) T) SLOOP::FIRST-SLOOP-FOR |
'(FTYPE (FUNCTION (T T T T) T) make-sequence-vector SLOOP::FIRST-SLOOP-FOR |
52 |
SLOOP::FIRST-USE-SLOOP-FOR SETF-STRUCTURE-ACCESS |
SLOOP::FIRST-USE-SLOOP-FOR SETF-STRUCTURE-ACCESS |
53 |
MAKE-UPDATE-FORM CALL-TEST MAYBE-BREAK FIND-LINE-IN-FUN)) |
MAKE-UPDATE-FORM CALL-TEST MAYBE-BREAK FIND-LINE-IN-FUN)) |
54 |
(PROCLAIM |
(PROCLAIM |