anchor.diff:  Returns nil if none of the keys are missing, otherwise returns the list of undocumented keys."
     (let ((wrap-header (find-org-header node header-name)))
       (loop :for key :in keys
  -       :if (not (find-org-header wrap-header (string-downcase (symbol-name key))))
  -       :collect key)))
  +          :unless (find-org-header wrap-header (string-downcase key))
  +            :collect key)))
   
   ;;; org files
   
  
positive.code:              (typep node 'cl-org-mode::outline-node))
             (recurse (node contains)
               (loop :for header :in (child-nodes node)
                  :if (and (outline-node-p header)
                           (search contains (slot-value header 'cl-org-mode::heading)))
                  :return header
                  :if (outline-node-p header)
                  :do (recurse header contains))))
      (recurse node contains)))
  
  
  
negative.code: ;;;; t/doc.lisp - tests to ensure all patterns, functions, classes, etc are documented in docstrings, doc/, etc.
  
  (in-package #:cl-patterns/tests)
  
  (in-suite cl-patterns-tests)
  
  ;;; cl-org-mode utility functions
  
  