anchor.diff: +;;;; 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)
  -
  -;;;; t/doc.lisp - tests to ensure all patterns, functions, classes, etc are documented in docstrings, doc/, etc.
   
   ;;; cl-org-mode utility functions
   
  
positive.code:                                           :append (process-nodes (child-nodes node)))))
                         (process-nodes nodes)))
           (code-texts (flatten (mapcar #'find-code-text list-items)))
           (missing (remove-if (lambda (pat) (position pat code-texts :test #'string-equal)) (mapcar #'symbol-name (all-patterns)))))
      (is-false missing
                "some patterns are not documented in patterns.org: ~a"
                missing)))
  
  (test special-keys.org
    "Make sure the special keys are documented"
  
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)))
  