anchor.diff:    (let* ((nodes (child-nodes *patterns.org*))
            (list-items (labels ((process-nodes (nodes)
                                   (loop :for node :in nodes
  -                                   :if (typep node 'cl-org-mode::text-node)
  -                                   :append (find-text-list-items (slot-value node 'cl-org-mode::text))
  -                                   :else
  -                                   :if (typep node 'cl-org-mode::outline-node)
  -                                   :append (process-nodes (child-nodes node)))))
  +                                      :if (typep node 'cl-org-mode::text-node)
  +                                        :append (text-list-items (node-text node))
  +                                      :else
  +                                        :if (typep node 'cl-org-mode::outline-node)
  +                                          :append (process-nodes (child-nodes node)))))
                          (process-nodes nodes)))
  -         (code-texts (mapcar #'find-code-text list-items))
  +         (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"
  
positive.code: (defun child-nodes (node)
    "Get the child nodes of NODE."
    (slot-value node 'cl-org-mode::child-nodes))
  
  (defun find-org-header (node contains)
    "Recursively search NODE and its child nodes to find a header that contains CONTAINS."
  
negative.code:                 :do (recurse header contains))))
      (recurse node contains)))
  
  
  (defun find-code-text (string)
    "Find all instances of text surrounded by tildes in STRING prior to the first \" - \"."
    (let ((dash-loc (search " - " string)))
      (mapcar (lambda (str) (string-trim (list #\~) str))
              (cl-ppcre:all-matches-as-strings "~([^~]*?)~" string :end dash-loc))))
  
  (defun find-missing-keys (node header-name keys)
    "Search for any missing in NODE under a header that contains HEADER-NAME.
  