Plaster

common-lisp
;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-VECTOR (SPLIT-SEQUENCE::DELIMITER VECTOR SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT SPLIT-SEQUENCE::KEY)) <1> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-VECTOR-IF (SPLIT-SEQUENCE::PREDICATE VECTOR SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <2> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-VECTOR-IF-NOT (SPLIT-SEQUENCE::PREDICATE VECTOR SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <3> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-END (SPLIT-SEQUENCE::POSITION-FN VECTOR SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)) <4> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-START (SPLIT-SEQUENCE::POSITION-FN VECTOR SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)) <5> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-LIST-INTERNAL (SPLIT-SEQUENCE::PREDICATE LIST SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <6> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-LIST-FROM-END (SPLIT-SEQUENCE::PREDICATE LIST SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <7> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-LIST-FROM-START (SPLIT-SEQUENCE::PREDICATE LIST SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <8> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-LIST-IF (SPLIT-SEQUENCE::PREDICATE LIST SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <9> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-LIST-IF-NOT (SPLIT-SEQUENCE::PREDICATE LIST SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <10> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-LIST (SPLIT-SEQUENCE::DELIMITER LIST SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT SPLIT-SEQUENCE::KEY)) <11> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE (SPLIT-SEQUENCE::DELIMITER SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT SPLIT-SEQUENCE::KEY)) <12> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF (SPLIT-SEQUENCE::PREDICATE SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <13> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF-NOT (SPLIT-SEQUENCE::PREDICATE SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END SPLIT-SEQUENCE::FROM-END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS SPLIT-SEQUENCE::KEY)) <14> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-END (SPLIT-SEQUENCE::POSITION-FN SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)) <15> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FROM-START (SPLIT-SEQUENCE::POSITION-FN SEQUENCE SPLIT-SEQUENCE::START SPLIT-SEQUENCE::END COUNT SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS)) <16> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::CHECK-TESTS (SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-P SPLIT-SEQUENCE::TEST-NOT SPLIT-SEQUENCE::TEST-NOT-P)) <17> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE:SPLIT-SEQUENCE (SPLIT-SEQUENCE::DELIMITER SEQUENCE &KEY (SPLIT-SEQUENCE::START 0) (SPLIT-SEQUENCE::END NIL) (SPLIT-SEQUENCE::FROM-END NIL) (COUNT NIL) (SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS NIL) (SPLIT-SEQUENCE::TEST # SPLIT-SEQUENCE::TEST-P) (SPLIT-SEQUENCE::TEST-NOT NIL SPLIT-SEQUENCE::TEST-NOT-P) (SPLIT-SEQUENCE::KEY #))) <18> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF (SPLIT-SEQUENCE::PREDICATE SEQUENCE &KEY (SPLIT-SEQUENCE::START 0) (SPLIT-SEQUENCE::END NIL) (SPLIT-SEQUENCE::FROM-END NIL) (COUNT NIL) (SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS NIL) (SPLIT-SEQUENCE::KEY #))) <19> ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT (SPLIT-SEQUENCE::PREDICATE SEQUENCE &KEY (SPLIT-SEQUENCE::START 0) (SPLIT-SEQUENCE::END NIL) (SPLIT-SEQUENCE::FROM-END NIL) (COUNT NIL) (SPLIT-SEQUENCE::REMOVE-EMPTY-SUBSEQS NIL) (SPLIT-SEQUENCE::KEY #))) <20>