Advertisement
Guest User

Untitled

a guest
Dec 22nd, 2018
168
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.77 KB | None | 0 0
  1. * (cover:report)
  2.  
  3. ;+ :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-LIST (SPLIT-SEQUENCE: <1>
  4. ; + :REACH (IF SPLIT-SEQUENCE::TEST-NOT (LAMBDA (SPLIT-SEQUENCE::X) <36>
  5. ; - :NON-NULL SPLIT-SEQUENCE::TEST-NOT <38>
  6. ;+ :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-LIST-INTERNAL (SPLIT- <6>
  7. ; + :REACH (OR SPLIT-SEQUENCE::END (LENGTH LIST)) <44>
  8. ; - :EVAL-ALL (LENGTH LIST) <47>
  9. ;+ :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-VECTOR (SPLIT-SEQUENC <7>
  10. ; + :REACH (COND ((AND # #) (SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-STAR <12>
  11. ; + :REACH (AND (NOT SPLIT-SEQUENCE::FROM-END) SPLIT-SEQUENCE::TES <112>
  12. ; - :EVAL-ALL SPLIT-SEQUENCE::TEST-NOT <115>
  13. ; - :FIRST-NON-NULL (AND (NOT SPLIT-SEQUENCE::FROM-END) SPLIT-SEQU <16>
  14. ; + :REACH (AND SPLIT-SEQUENCE::FROM-END (NULL SPLIT-SEQUENCE::TES <116>
  15. ; - :FIRST-NULL SPLIT-SEQUENCE::FROM-END <118>
  16. ; - :FIRST-NON-NULL T <19>
  17. ;+ :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-VECTOR-FROM-START (SP <11>
  18. ; + :REACH (AND COUNT (>= SPLIT-SEQUENCE::NR-ELTS COUNT)) <32>
  19. ; - :EVAL-ALL (>= SPLIT-SEQUENCE::NR-ELTS COUNT) <35>
  20. ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE (SP <144>
  21. ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF <145>
  22. ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-IF- <146>
  23. ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FRO <147>
  24. ;- :REACH (COVER::DEFUN SPLIT-SEQUENCE::SPLIT-EXTENDED-SEQUENCE-FRO <148>
  25. ;+ :REACH (COVER::DEFUN SPLIT-SEQUENCE::CHECK-TESTS (SPLIT-SEQUENCE <149>
  26. ; + :REACH (WHEN (AND SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT <153>
  27. ; + :REACH (AND SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT) <157>
  28. ; - :EVAL-ALL SPLIT-SEQUENCE::TEST-NOT <160>
  29. ; - :NON-NULL (AND SPLIT-SEQUENCE::TEST SPLIT-SEQUENCE::TEST-NOT) <155>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement