Guest User

Untitled

a guest
Dec 22nd, 2018
118
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;+ REACH (DEFUN SPLIT-VECTOR (DELIMITER VECTOR START END FROM-END COUNT REMOVE-EMPTY-SUBSEQS TEST TEST-NOT KEY)) <1>
  2. ; + REACH (COND ((AND # #) (SPLIT-VECTOR-FROM-START # VECTOR START END COUNT REMOVE-EMPTY-SUBSEQS)) ((AND # TEST-NOT) (SPLIT-VECTOR-FROM-START # VECTOR START END COUNT REMOVE-EMPTY-SUBSEQS)) ((AND FROM-END #) (SPLIT-VECTOR-FROM-END # VECTOR START END COUNT REMOVE-EMPTY-SUBSEQS)) (T (SPLIT-VECTOR-FROM-END # VECTOR START END COUNT REMOVE-EMPTY-SUBSEQS))) <33>
  3. ; + REACH (AND (NOT FROM-END) TEST-NOT) <133>
  4. ; - EVAL-ALL TEST-NOT <136>
  5. ; - FIRST-NON-NULL (AND (NOT FROM-END) TEST-NOT) <37>
  6. ; + REACH (AND FROM-END (NULL TEST-NOT)) <137>
  7. ; - FIRST-NULL FROM-END <139>
  8. ; - FIRST-NON-NULL T <40>
  9. ;+ REACH (DEFUN SPLIT-VECTOR-FROM-START (POSITION-FN VECTOR START END COUNT REMOVE-EMPTY-SUBSEQS)) <5>
  10. ; + REACH (AND COUNT (>= NR-ELTS COUNT)) <53>
  11. ; - EVAL-ALL (>= NR-ELTS COUNT) <56>
  12. ;+ REACH (DEFUN SPLIT-LIST-INTERNAL (PREDICATE LIST START END COUNT REMOVE-EMPTY-SUBSEQS KEY)) <6>
  13. ; + REACH (OR END (LENGTH LIST)) <65>
  14. ; - EVAL-ALL (LENGTH LIST) <68>
  15. ;+ REACH (DEFUN SPLIT-LIST (DELIMITER LIST START END FROM-END COUNT REMOVE-EMPTY-SUBSEQS TEST TEST-NOT KEY)) <11>
  16. ; + REACH (IF TEST-NOT (LAMBDA (X) (NOT #)) (LAMBDA (X) (FUNCALL TEST DELIMITER X))) <57>
  17. ; - NON-NULL TEST-NOT <59>
  18. ;- REACH (DEFUN SPLIT-EXTENDED-SEQUENCE (DELIMITER SEQUENCE START END FROM-END COUNT REMOVE-EMPTY-SUBSEQS TEST TEST-NOT KEY)) <12>
  19. ;- REACH (DEFUN SPLIT-EXTENDED-SEQUENCE-IF (PREDICATE SEQUENCE START END FROM-END COUNT REMOVE-EMPTY-SUBSEQS KEY)) <13>
  20. ;- REACH (DEFUN SPLIT-EXTENDED-SEQUENCE-IF-NOT (PREDICATE SEQUENCE START END FROM-END COUNT REMOVE-EMPTY-SUBSEQS KEY)) <14>
  21. ;- REACH (DEFUN SPLIT-EXTENDED-SEQUENCE-FROM-END (POSITION-FN SEQUENCE START END COUNT REMOVE-EMPTY-SUBSEQS)) <15>
  22. ;- REACH (DEFUN SPLIT-EXTENDED-SEQUENCE-FROM-START (POSITION-FN SEQUENCE START END COUNT REMOVE-EMPTY-SUBSEQS)) <16>
  23. ;+ REACH (DEFUN CHECK-TESTS (TEST TEST-P TEST-NOT TEST-NOT-P)) <17>
  24. ; + REACH (WHEN (AND TEST TEST-P TEST-NOT TEST-NOT-P) (ERROR Cannot specify both TEST and TEST-NOT.)) <21>
  25. ; + REACH (AND TEST TEST-P TEST-NOT TEST-NOT-P) <25>
  26. ; - FIRST-NULL TEST <27>
  27. ; - FIRST-NULL TEST-NOT <31>
  28. ; - EVAL-ALL TEST-NOT-P <32>
  29. ; - NON-NULL (AND TEST TEST-P TEST-NOT TEST-NOT-P) <23>
RAW Paste Data