anchor.diff:               (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))))
  +                   :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)))
   
   
  
positive.code: (in-package #:cl-patterns/tests)
  
  (in-suite cl-patterns-tests)
  
  ;;;; t/doc.lisp - tests to ensure all patterns, functions, classes, etc are documented in docstrings, doc/, etc.
  
  ;;; cl-org-mode utility functions
  
  
negative.code:                                     "pbind special init keys"
                                      (keys cl-patterns::*pbind-special-init-keys*))))
      (is-false missing
                "some pbind init keys are not documented: ~a" missing))
    (let ((missing (find-missing-keys *special-keys.org*
                                      "pbind special wrap keys"
                                      (keys cl-patterns::*pbind-special-wrap-keys*))))
      (is-false missing
                "some pbind wrap keys are not documented: ~a" missing))
    (let ((missing (find-missing-keys *special-keys.org*
                                      "pbind special process keys"
                                      (keys cl-patterns::*pbind-special-process-keys*))))
      (is-false missing
                "some pbind process keys are not documented: ~a" missing)))
  