[O] BUG in org-lint and tangle

[Rainer M Krug]

The following R file causes an crash of the org-lint function and of
tangling -
backtrace attached. The problem seems to be the missing specification of
:exports.


--8<---------------cut here---------------start------------->8---
* Test
#+begin_src R :exports 
#+end_src
--8<---------------cut here---------------end--------------->8---


Cheers,

Rainer

,----
| Debugger entered--Lisp error: (wrong-type-argument stringp nil)
|   string-match("[ \f  \n.]+" nil 0)
|   split-string(nil)
|   (funcall e-merge exports-exclusive-groups exports (split-string (cdr pair)))
|   (setq exports (funcall e-merge exports-exclusive-groups exports 
(split-string (cdr pair))))
|   (cond ((eql temp (quote :var)) (let ((name (if (listp (cdr pair)) (car (cdr 
pair)) (and (string-match "^\\([^= \f   \n.]+\\)[      ]*=" ...) (intern 
...))))) (if name (setq vars (append (if (member name ...) (progn ... ...) 
vars) (list (cons name pair)))) (if (and vars (nth variable-index vars)) (let 
((name ...)) (setq clearnames (cons name clearnames)) (prog1 (let* ... ...) 
(setq variable-index ...))) (error "Variable \"%s\" must be assigned a default 
value" (cdr pair)))))) ((eql temp (quote :results)) (setq results (funcall 
e-merge results-exclusive-groups results (split-string (let ((r ...)) (if 
(stringp r) r (eval r))))))) ((eql temp (quote :file)) (if (cdr pair) (progn 
(setq results (funcall e-merge results-exclusive-groups results (quote 
("file")))) (if (or (member "both" exports) (member "none" exports) (member 
"code" exports)) nil (setq exports (funcall e-merge exports-exclusive-groups 
exports (quote ...)))) (setq params (cons pair (assq-delete-all (car pair) 
params)))))) ((eql temp (quote :file-ext)) (if (cdr pair) (progn (setq results 
(funcall e-merge results-exclusive-groups results (quote ("file")))) (if (or 
(member "both" exports) (member "none" exports) (member "code" exports)) nil 
(setq exports (funcall e-merge exports-exclusive-groups exports (quote ...)))) 
(setq params (cons pair (assq-delete-all (car pair) params)))))) ((eql temp 
(quote :exports)) (setq exports (funcall e-merge exports-exclusive-groups 
exports (split-string (cdr pair))))) ((eql temp (quote :tangle)) (setq tangle 
(or (list (cdr pair)) tangle))) ((eql temp (quote :noweb)) (setq noweb (funcall 
e-merge (quote (("yes" "no" "tangle" "no-export" "strip-export" "eval"))) noweb 
(split-string (or (cdr pair) ""))))) ((eql temp (quote :cache)) (setq cache 
(funcall e-merge (quote (("yes" "no"))) cache (split-string (or (cdr pair) 
""))))) ((eql temp (quote :padline)) (setq padline (funcall e-merge (quote 
(("yes" "no"))) padline (split-string (or (cdr pair) ""))))) ((eql temp (quote 
:shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql temp (quote 
:comments)) (setq comments (funcall e-merge (quote (("yes" "no"))) comments 
(split-string (or (cdr pair) ""))))) (t (setq params (cons pair 
(assq-delete-all (car pair) params)))))
|   (let* ((temp (car pair))) (cond ((eql temp (quote :var)) (let ((name (if 
(listp ...) (car ...) (and ... ...)))) (if name (setq vars (append (if ... ... 
vars) (list ...))) (if (and vars (nth variable-index vars)) (let (...) (setq 
clearnames ...) (prog1 ... ...)) (error "Variable \"%s\" must be assigned a 
default value" (cdr pair)))))) ((eql temp (quote :results)) (setq results 
(funcall e-merge results-exclusive-groups results (split-string (let (...) (if 
... r ...)))))) ((eql temp (quote :file)) (if (cdr pair) (progn (setq results 
(funcall e-merge results-exclusive-groups results (quote ...))) (if (or (member 
"both" exports) (member "none" exports) (member "code" exports)) nil (setq 
exports (funcall e-merge exports-exclusive-groups exports ...))) (setq params 
(cons pair (assq-delete-all ... params)))))) ((eql temp (quote :file-ext)) (if 
(cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups 
results (quote ...))) (if (or (member "both" exports) (member "none" exports) 
(member "code" exports)) nil (setq exports (funcall e-merge 
exports-exclusive-groups exports ...))) (setq params (cons pair 
(assq-delete-all ... params)))))) ((eql temp (quote :exports)) (setq exports 
(funcall e-merge exports-exclusive-groups exports (split-string (cdr pair))))) 
((eql temp (quote :tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql 
temp (quote :noweb)) (setq noweb (funcall e-merge (quote (("yes" "no" "tangle" 
"no-export" "strip-export" "eval"))) noweb (split-string (or (cdr pair) ""))))) 
((eql temp (quote :cache)) (setq cache (funcall e-merge (quote (("yes" "no"))) 
cache (split-string (or (cdr pair) ""))))) ((eql temp (quote :padline)) (setq 
padline (funcall e-merge (quote (("yes" "no"))) padline (split-string (or (cdr 
pair) ""))))) ((eql temp (quote :shebang)) (setq shebang (or (list (cdr pair)) 
shebang))) ((eql temp (quote :comments)) (setq comments (funcall e-merge (quote 
(("yes" "no"))) comments (split-string (or (cdr pair) ""))))) (t (setq params 
(cons pair (assq-delete-all (car pair) params))))))
|   (lambda (pair) (let* ((temp (car pair))) (cond ((eql temp (quote :var)) 
(let ((name (if ... ... ...))) (if name (setq vars (append ... ...)) (if (and 
vars ...) (let ... ... ...) (error "Variable \"%s\" must be assigned a default 
value" ...))))) ((eql temp (quote :results)) (setq results (funcall e-merge 
results-exclusive-groups results (split-string (let ... ...))))) ((eql temp 
(quote :file)) (if (cdr pair) (progn (setq results (funcall e-merge 
results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq exports 
...)) (setq params (cons pair ...))))) ((eql temp (quote :file-ext)) (if (cdr 
pair) (progn (setq results (funcall e-merge results-exclusive-groups results 
...)) (if (or ... ... ...) nil (setq exports ...)) (setq params (cons pair 
...))))) ((eql temp (quote :exports)) (setq exports (funcall e-merge 
exports-exclusive-groups exports (split-string (cdr pair))))) ((eql temp (quote 
:tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql temp (quote 
:noweb)) (setq noweb (funcall e-merge (quote (...)) noweb (split-string (or ... 
""))))) ((eql temp (quote :cache)) (setq cache (funcall e-merge (quote (...)) 
cache (split-string (or ... ""))))) ((eql temp (quote :padline)) (setq padline 
(funcall e-merge (quote (...)) padline (split-string (or ... ""))))) ((eql temp 
(quote :shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql temp 
(quote :comments)) (setq comments (funcall e-merge (quote (...)) comments 
(split-string (or ... ""))))) (t (setq params (cons pair (assq-delete-all (car 
pair) params)))))))((:exports))
|   mapc((lambda (pair) (let* ((temp (car pair))) (cond ((eql temp (quote 
:var)) (let ((name (if ... ... ...))) (if name (setq vars (append ... ...)) (if 
(and vars ...) (let ... ... ...) (error "Variable \"%s\" must be assigned a 
default value" ...))))) ((eql temp (quote :results)) (setq results (funcall 
e-merge results-exclusive-groups results (split-string (let ... ...))))) ((eql 
temp (quote :file)) (if (cdr pair) (progn (setq results (funcall e-merge 
results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq exports 
...)) (setq params (cons pair ...))))) ((eql temp (quote :file-ext)) (if (cdr 
pair) (progn (setq results (funcall e-merge results-exclusive-groups results 
...)) (if (or ... ... ...) nil (setq exports ...)) (setq params (cons pair 
...))))) ((eql temp (quote :exports)) (setq exports (funcall e-merge 
exports-exclusive-groups exports (split-string (cdr pair))))) ((eql temp (quote 
:tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql temp (quote 
:noweb)) (setq noweb (funcall e-merge (quote (...)) noweb (split-string (or ... 
""))))) ((eql temp (quote :cache)) (setq cache (funcall e-merge (quote (...)) 
cache (split-string (or ... ""))))) ((eql temp (quote :padline)) (setq padline 
(funcall e-merge (quote (...)) padline (split-string (or ... ""))))) ((eql temp 
(quote :shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql temp 
(quote :comments)) (setq comments (funcall e-merge (quote (...)) comments 
(split-string (or ... ""))))) (t (setq params (cons pair (assq-delete-all (car 
pair) params))))))) ((:exports)))
|   (lambda (plist) (mapc (function (lambda (pair) (let* ((temp (car pair))) 
(cond ((eql temp ...) (let ... ...)) ((eql temp ...) (setq results ...)) ((eql 
temp ...) (if ... ...)) ((eql temp ...) (if ... ...)) ((eql temp ...) (setq 
exports ...)) ((eql temp ...) (setq tangle ...)) ((eql temp ...) (setq noweb 
...)) ((eql temp ...) (setq cache ...)) ((eql temp ...) (setq padline ...)) 
((eql temp ...) (setq shebang ...)) ((eql temp ...) (setq comments ...)) (t 
(setq params ...)))))) plist))(((:exports)))
|   mapc((lambda (plist) (mapc (function (lambda (pair) (let* ((temp (car 
pair))) (cond ((eql temp ...) (let ... ...)) ((eql temp ...) (setq results 
...)) ((eql temp ...) (if ... ...)) ((eql temp ...) (if ... ...)) ((eql temp 
...) (setq exports ...)) ((eql temp ...) (setq tangle ...)) ((eql temp ...) 
(setq noweb ...)) ((eql temp ...) (setq cache ...)) ((eql temp ...) (setq 
padline ...)) ((eql temp ...) (setq shebang ...)) ((eql temp ...) (setq 
comments ...)) (t (setq params ...)))))) plist)) (((:noweb . "no") (:session . 
"none") (:results . "replace") (:exports . "code") (:cache . "no") (:hlines . 
"no") (:tangle . "no")) nil nil nil nil nil ((:exports))))
|   (let* ((results-exclusive-groups (mapcar (function (lambda (group) (mapcar 
(function symbol-name) group))) (cdr (assoc (quote results) 
org-babel-common-header-args-w-values)))) (exports-exclusive-groups (mapcar 
(function (lambda (group) (mapcar (function symbol-name) group))) (cdr (assoc 
(quote exports) org-babel-common-header-args-w-values)))) (variable-index 0) 
(e-merge (function (lambda (exclusive-groups &rest result-params) (let (output) 
(mapc (function ...) result-params) output)))) params results exports tangle 
noweb cache vars shebang comments padline clearnames) (mapc (function (lambda 
(plist) (mapc (function (lambda (pair) (let* ... ...))) plist))) plists) (setq 
vars (reverse vars)) (while vars (setq params (cons (cons :var (cdr (cdr 
(car-safe ...)))) params))) (mapc (function (lambda (name) (mapc (function 
(lambda (param) (if ... ...))) (list :colname-names :rowname-names)))) 
clearnames) (mapc (function (lambda (hd) (let ((key (intern ...)) (val (eval 
hd))) (setq params (cons (cons key ...) params))))) (quote (results exports 
tangle noweb padline cache shebang comments))) params)
|   org-babel-merge-params(((:noweb . "no") (:session . "none") (:results . 
"replace") (:exports . "code") (:cache . "no") (:hlines . "no") (:tangle . 
"no")) nil nil nil nil nil ((:exports)))
|   apply(org-babel-merge-params ((:noweb . "no") (:session . "none") (:results 
. "replace") (:exports . "code") (:cache . "no") (:hlines . "no") (:tangle . 
"no")) nil (nil nil nil nil ((:exports))))
|   (org-babel-process-params (apply (function org-babel-merge-params) 
org-babel-default-header-args (and language (let ((v (intern (concat 
"org-babel-default-header-args:" language)))) (and (boundp v) (symbol-value 
v)))) (append (list (and (memq type (quote (babel-call inline-babel-call))) 
org-babel-default-lob-header-args)) (progn (goto-char (org-element-property 
:begin datum)) (org-babel-params-from-properties language)) (list 
(org-babel-parse-header-arguments (org-trim (cond (... ...) (... ...) (t 
...))))))))
|   (let* ((type (org-element-type datum)) (language (org-element-property 
:language datum)) (allowed-header-values (append (and language (let ((v ...)) 
(and (boundp v) (symbol-value v)))) org-babel-common-header-args-w-values)) 
(datum-header-values (org-babel-process-params (apply (function 
org-babel-merge-params) org-babel-default-header-args (and language (let (...) 
(and ... ...))) (append (list (and ... org-babel-default-lob-header-args)) 
(progn (goto-char ...) (org-babel-params-from-properties language)) (list 
(org-babel-parse-header-arguments ...))))))) (let ((--dolist-tail-- 
datum-header-values)) (while --dolist-tail-- (let ((header (car 
--dolist-tail--))) (let ((allowed-values (cdr ...))) (if (memq allowed-values 
(quote ...)) nil (let (... groups-alist) (let ... ...)))) (setq --dolist-tail-- 
(cdr --dolist-tail--))))))
|   (closure ((reports) (ast org-data nil (headline (:raw-value "Test" :begin 1 
:end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil 
:tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p 
nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 
(:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 
:contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) 
(src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 
:number-lines nil :preserve-indent nil :retain-labels t :use-labels t 
:label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) 
cl-struct-org-lint-checker-tags t) (datum) (let* ((type (org-element-type 
datum)) (language (org-element-property :language datum)) 
(allowed-header-values (append (and language (let (...) (and ... ...))) 
org-babel-common-header-args-w-values)) (datum-header-values 
(org-babel-process-params (apply (function org-babel-merge-params) 
org-babel-default-header-args (and language (let ... ...)) (append (list ...) 
(progn ... ...) (list ...)))))) (let ((--dolist-tail-- datum-header-values)) 
(while --dolist-tail-- (let ((header (car --dolist-tail--))) (let 
((allowed-values ...)) (if (memq allowed-values ...) nil (let ... ...))) (setq 
--dolist-tail-- (cdr --dolist-tail--)))))))((src-block (:language "R" :switches 
nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent 
nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 
:post-affiliated 9 :parent (section (:begin 9 :end 44 :contents-begin 9 
:contents-end 44 :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value 
"Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 
1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 
:footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 
:title (#("Test" 0 4 ...)) :parent (org-data nil #4)) #2)) #0))))
|   #[(--data) "\211.:\204.   ;\205.\306\202.       @9\205.        
@).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
        @9\203V.        AA\202W.        
)\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;address@hidden
   ;\203\266.\317\320.    #\202\275.\307  
address@hidden"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
 address@hidden @. A..        ;\203.
\317\320.       #\202.\307     
address@hidden"*.!.\".!\203w.\".#\235\203_.\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
      @9\203\240.     AA\202\241.     
)?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
     @9\203\334.     AA\202\335.     )\")\207" [--data element --type info 
--walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw 
--map-first-match objects get-text-property 0 reverse greater-elements elements 
fun result first-match --acc --category org-element-secondary-value-alist p 
--dolist-tail-- property with-affiliated org-element-all-elements 
org-element--parsed-properties-alist kwd-pair value kwd 
org-element-dual-keywords org-element-multiple-keywords line no-recursion 
org-element-greater-elements org-element-all-objects] 6]((src-block (:language 
"R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil 
:preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" 
:post-blank 0 :post-affiliated 9 :parent (section (:begin 9 :end 44 
:contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent 
(headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 
:contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type 
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil 
:post-affiliated 1 :title (#("Test" 0 4 ...)) :parent (org-data nil #4)) #2)) 
#0))))
|   mapc(#[(--data) "\211.:\204.      ;\205.\306\202.       @9\205.        
@).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
        @9\203V.        AA\202W.        
)\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;address@hidden
   ;\203\266.\317\320.    #\202\275.\307  
address@hidden"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
 address@hidden @. A..        ;\203.
\317\320.       #\202.\307     
address@hidden"*.!.\".!\203w.\".#\235\203_.\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
      @9\203\240.     AA\202\241.     
)?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
     @9\203\334.     AA\202\335.     )\")\207" [--data element --type info 
--walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw 
--map-first-match objects get-text-property 0 reverse greater-elements elements 
fun result first-match --acc --category org-element-secondary-value-alist p 
--dolist-tail-- property with-affiliated org-element-all-elements 
org-element--parsed-properties-alist kwd-pair value kwd 
org-element-dual-keywords org-element-multiple-keywords line no-recursion 
org-element-greater-elements org-element-all-objects] 6] ((src-block (:language 
"R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil 
:preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" 
:post-blank 0 :post-affiliated 9 :parent (section (:begin 9 :end 44 
:contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent 
(headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 
:contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type 
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil 
:post-affiliated 1 :title (#("Test" 0 4 ...)) :parent (org-data nil #5)) #3)) 
#1)))))
|   #[(--data) "\211.:\204.   ;\205.\306\202.       @9\205.        
@).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
        @9\203V.        AA\202W.        
)\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;address@hidden
   ;\203\266.\317\320.    #\202\275.\307  
address@hidden"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
 address@hidden @. A..        ;\203.
\317\320.       #\202.\307     
address@hidden"*.!.\".!\203w.\".#\235\203_.\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
      @9\203\240.     AA\202\241.     
)?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
     @9\203\334.     AA\202\335.     )\")\207" [--data element --type info 
--walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw 
--map-first-match objects get-text-property 0 reverse greater-elements elements 
fun result first-match --acc --category org-element-secondary-value-alist p 
--dolist-tail-- property with-affiliated org-element-all-elements 
org-element--parsed-properties-alist kwd-pair value kwd 
org-element-dual-keywords org-element-multiple-keywords line no-recursion 
org-element-greater-elements org-element-all-objects] 6]((section (:begin 9 
:end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 
:parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 
:contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil 
:todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil 
:archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent 
#2))) :parent (org-data nil #2)) #0)) (src-block (:language "R" :switches nil 
:parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil 
:retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 
:post-affiliated 9 :parent #0))))
|   mapc(#[(--data) "\211.:\204.      ;\205.\306\202.       @9\205.        
@).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
        @9\203V.        AA\202W.        
)\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;address@hidden
   ;\203\266.\317\320.    #\202\275.\307  
address@hidden"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
 address@hidden @. A..        ;\203.
\317\320.       #\202.\307     
address@hidden"*.!.\".!\203w.\".#\235\203_.\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
      @9\203\240.     AA\202\241.     
)?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
     @9\203\334.     AA\202\335.     )\")\207" [--data element --type info 
--walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw 
--map-first-match objects get-text-property 0 reverse greater-elements elements 
fun result first-match --acc --category org-element-secondary-value-alist p 
--dolist-tail-- property with-affiliated org-element-all-elements 
org-element--parsed-properties-alist kwd-pair value kwd 
org-element-dual-keywords org-element-multiple-keywords line no-recursion 
org-element-greater-elements org-element-all-objects] 6] ((section (:begin 9 
:end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 
:parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 
:contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil 
:todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil 
:archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent 
#3))) :parent (org-data nil #3)) #1)) (src-block (:language "R" :switches nil 
:parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil 
:retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 
:post-affiliated 9 :parent #1)))))
|   #[(--data) "\211.:\204.   ;\205.\306\202.       @9\205.        
@).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
        @9\203V.        AA\202W.        
)\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;address@hidden
   ;\203\266.\317\320.    #\202\275.\307  
address@hidden"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
 address@hidden @. A..        ;\203.
\317\320.       #\202.\307     
address@hidden"*.!.\".!\203w.\".#\235\203_.\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
      @9\203\240.     AA\202\241.     
)?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
     @9\203\334.     AA\202\335.     )\")\207" [--data element --type info 
--walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw 
--map-first-match objects get-text-property 0 reverse greater-elements elements 
fun result first-match --acc --category org-element-secondary-value-alist p 
--dolist-tail-- property with-affiliated org-element-all-elements 
org-element--parsed-properties-alist kwd-pair value kwd 
org-element-dual-keywords org-element-multiple-keywords line no-recursion 
org-element-greater-elements org-element-all-objects] 6]((headline (:raw-value 
"Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 
1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 
:footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 
:title (#("Test" 0 4 (:parent #0))) :parent (org-data nil #0)) (section (:begin 
9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 
:parent #0) (src-block (:language "R" :switches nil :parameters ":exports" 
:begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t 
:use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent 
#1)))))
|   mapc(#[(--data) "\211.:\204.      ;\205.\306\202.       @9\205.        
@).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
        @9\203V.        AA\202W.        
)\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;address@hidden
   ;\203\266.\317\320.    #\202\275.\307  
address@hidden"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
 address@hidden @. A..        ;\203.
\317\320.       #\202.\307     
address@hidden"*.!.\".!\203w.\".#\235\203_.\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
      @9\203\240.     AA\202\241.     
)?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
     @9\203\334.     AA\202\335.     )\")\207" [--data element --type info 
--walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw 
--map-first-match objects get-text-property 0 reverse greater-elements elements 
fun result first-match --acc --category org-element-secondary-value-alist p 
--dolist-tail-- property with-affiliated org-element-all-elements 
org-element--parsed-properties-alist kwd-pair value kwd 
org-element-dual-keywords org-element-multiple-keywords line no-recursion 
org-element-greater-elements org-element-all-objects] 6] ((headline (:raw-value 
"Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 
1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 
:footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 
:title (#("Test" 0 4 (:parent #1))) :parent (org-data nil #1)) (section (:begin 
9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 
:parent #1) (src-block (:language "R" :switches nil :parameters ":exports" 
:begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t 
:use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent 
#2))))))
|   #[(--data) "\211.:\204.   ;\205.\306\202.       @9\205.        
@).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
        @9\203V.        AA\202W.        
)\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;address@hidden
   ;\203\266.\317\320.    #\202\275.\307  
address@hidden"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
 address@hidden @. A..        ;\203.
\317\320.       #\202.\307     
address@hidden"*.!.\".!\203w.\".#\235\203_.\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
      @9\203\240.     AA\202\241.     
)?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
     @9\203\334.     AA\202\335.     )\")\207" [--data element --type info 
--walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw 
--map-first-match objects get-text-property 0 reverse greater-elements elements 
fun result first-match --acc --category org-element-secondary-value-alist p 
--dolist-tail-- property with-affiliated org-element-all-elements 
org-element--parsed-properties-alist kwd-pair value kwd 
org-element-dual-keywords org-element-multiple-keywords line no-recursion 
org-element-greater-elements org-element-all-objects] 6]((org-data nil 
(headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 
:contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type 
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil 
:post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent #0) (section 
(:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 
:post-affiliated 9 :parent #1) (src-block (:language "R" :switches nil 
:parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil 
:retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 
:post-affiliated 9 :parent #2))))))
|   org-element-map((org-data nil (headline (:raw-value "Test" :begin 1 :end 44 
:pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags 
nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil 
:archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent 
#1))) :parent #0) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 
:post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R" 
:switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil 
:preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" 
:post-blank 0 :post-affiliated 9 :parent #2))))) (babel-call inline-babel-call 
inline-src-block src-block) (closure ((reports) (ast org-data nil (headline 
(:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 
:contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type 
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil 
:post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil 
#3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 
0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil 
:parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil 
:retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 
:post-affiliated 9 :parent #4))))) cl-struct-org-lint-checker-tags t) (datum) 
(let* ((type (org-element-type datum)) (language (org-element-property 
:language datum)) (allowed-header-values (append (and language (let (...) (and 
... ...))) org-babel-common-header-args-w-values)) (datum-header-values 
(org-babel-process-params (apply (function org-babel-merge-params) 
org-babel-default-header-args (and language (let ... ...)) (append (list ...) 
(progn ... ...) (list ...)))))) (let ((--dolist-tail-- datum-header-values)) 
(while --dolist-tail-- (let ((header (car --dolist-tail--))) (let 
((allowed-values ...)) (if (memq allowed-values ...) nil (let ... ...))) (setq 
--dolist-tail-- (cdr --dolist-tail--))))))))
|   (let (reports) (org-element-map ast (quote (babel-call inline-babel-call 
inline-src-block src-block)) (function (lambda (datum) (let* ((type 
(org-element-type datum)) (language (org-element-property :language datum)) 
(allowed-header-values (append ... org-babel-common-header-args-w-values)) 
(datum-header-values (org-babel-process-params ...))) (let ((--dolist-tail-- 
datum-header-values)) (while --dolist-tail-- (let ... ... ...))))))) reports)
|   org-lint-wrong-header-value((org-data nil (headline (:raw-value "Test" 
:begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 
:priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 
:footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 
:title (#("Test" 0 4 (:parent #1))) :parent #0) (section (:begin 9 :end 44 
:contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #1) 
(src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 
:number-lines nil :preserve-indent nil :retain-labels t :use-labels t 
:label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #2))))))
|   funcall(org-lint-wrong-header-value (org-data nil (headline (:raw-value 
"Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 
1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 
:footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 
:title (#("Test" 0 4 (:parent #1))) :parent #0) (section (:begin 9 :end 44 
:contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #1) 
(src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 
:number-lines nil :preserve-indent nil :retain-labels t :use-labels t 
:label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #2))))))
|   (save-excursion (funcall (intern (format "org-lint-%s" (progn nil (or 
(progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... 
c))) (aref c 1)))) ast))
|   (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) 
c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn nil (or 
(progn nil ...) (signal ... ...)) (aref c 1)))) ast)))
|   (let ((trust (symbol-name (progn nil (or (progn nil (and ... ... ... t)) 
(signal (quote wrong-type-argument) (list ... c))) (aref c 4))))) (mapcar 
(function (lambda (report) (list (car report) trust (nth 1 report) c))) 
(save-excursion (funcall (intern (format "org-lint-%s" (progn nil (or ... ...) 
(aref c 1)))) ast))))
|   (closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil 
(headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 
:contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type 
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil 
:post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil 
#3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 
0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil 
:parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil 
:retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 
:post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-lint-checker 
duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] 
[cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" 
(babel link) high] [cl-struct-org-lint-checker duplicate-target "Report 
duplicate targets" (link) high] [cl-struct-org-lint-checker 
duplicate-footnote-definition "Report duplicate footnote definitions" 
(footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords 
"Report orphaned affiliated keywords" (default) low] 
[cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]) (buffer . #<buffer lint.org>) 
cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or 
(progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda 
(report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall 
(intern (format "org-lint-%s" (progn nil ... ...))) 
ast)))))([cl-struct-org-lint-checker wrong-header-value "Report invalid value 
in babel headers" (babel) low])
|   mapcar((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil 
(headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 
:contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type 
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil 
:post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil 
#3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 
0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil 
:parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil 
:retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 
:post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-lint-checker 
duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] 
[cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" 
(babel link) high] [cl-struct-org-lint-checker duplicate-target "Report 
duplicate targets" (link) high] [cl-struct-org-lint-checker 
duplicate-footnote-definition "Report duplicate footnote definitions" 
(footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords 
"Report orphaned affiliated keywords" (default) low] 
[cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]) (buffer . #<buffer lint.org>) 
cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or 
(progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda 
(report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall 
(intern (format "org-lint-%s" (progn nil ... ...))) ast))))) 
([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID 
properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report 
duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker 
duplicate-target "Report duplicate targets" (link) high] 
[cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate 
footnote definitions" (footnote) high] [cl-struct-org-lint-checker 
orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) 
low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]))
|   cl-mapcar((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data 
nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 
9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil 
:todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp 
nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data 
nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 
:post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" 
:switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil 
:preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" 
:post-blank 0 :post-affiliated 9 :parent #4))))) (checkers 
[cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID 
properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report 
duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker 
duplicate-target "Report duplicate targets" (link) high] 
[cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate 
footnote definitions" (footnote) high] [cl-struct-org-lint-checker 
orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) 
low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]) (buffer . #<buffer lint.org>) 
cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or 
(progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda 
(report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall 
(intern (format "org-lint-%s" (progn nil ... ...))) ast))))) 
([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID 
properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report 
duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker 
duplicate-target "Report duplicate targets" (link) high] 
[cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate 
footnote definitions" (footnote) high] [cl-struct-org-lint-checker 
orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) 
low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]))
|   apply(cl-mapcar (closure ((last-pos . 1) (last-line . 1) (id . 0) (ast 
org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 
:contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil 
:todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil 
:archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent 
#3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 
:contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block 
(:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 
:number-lines nil :preserve-indent nil :retain-labels t :use-labels t 
:label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) 
(checkers [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates 
CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name 
"Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker 
duplicate-target "Report duplicate targets" (link) high] 
[cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate 
footnote definitions" (footnote) high] [cl-struct-org-lint-checker 
orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) 
low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]) (buffer . #<buffer lint.org>) 
cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or 
(progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda 
(report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall 
(intern (format "org-lint-%s" (progn nil ... ...))) ast))))) 
([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID 
properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report 
duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker 
duplicate-target "Report duplicate targets" (link) high] 
[cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate 
footnote definitions" (footnote) high] [cl-struct-org-lint-checker 
orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) 
low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]) nil)
|   cl-mapcan((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data 
nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 
9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil 
:todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp 
nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data 
nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 
:post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" 
:switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil 
:preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" 
:post-blank 0 :post-affiliated 9 :parent #4))))) (checkers 
[cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID 
properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report 
duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker 
duplicate-target "Report duplicate targets" (link) high] 
[cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate 
footnote definitions" (footnote) high] [cl-struct-org-lint-checker 
orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) 
low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]) (buffer . #<buffer lint.org>) 
cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or 
(progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda 
(report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall 
(intern (format "org-lint-%s" (progn nil ... ...))) ast))))) 
([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID 
properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report 
duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker 
duplicate-target "Report duplicate targets" (link) high] 
[cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate 
footnote definitions" (footnote) high] [cl-struct-org-lint-checker 
orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) 
low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]))
|   (sort (cl-mapcan (function (lambda (c) (let ((trust (symbol-name ...))) 
(mapcar (function (lambda ... ...)) (save-excursion (funcall ... ast)))))) 
checkers) (function car-less-than-car))
|   (mapcar (function (lambda (report) (list (setq id (1+ id)) (apply (function 
vector) (cons (progn (goto-char ...) (beginning-of-line) (prog1 ... ...)) (cdr 
report)))))) (sort (cl-mapcan (function (lambda (c) (let ((trust ...)) (mapcar 
(function ...) (save-excursion ...))))) checkers) (function car-less-than-car)))
|   (let ((ast (org-element-parse-buffer)) (id 0) (last-line 1) (last-pos 1)) 
(mapcar (function (lambda (report) (list (setq id (1+ id)) (apply (function 
vector) (cons (progn ... ... ...) (cdr report)))))) (sort (cl-mapcan (function 
(lambda (c) (let (...) (mapcar ... ...)))) checkers) (function 
car-less-than-car))))
|   (save-excursion (goto-char (point-min)) (let ((ast 
(org-element-parse-buffer)) (id 0) (last-line 1) (last-pos 1)) (mapcar 
(function (lambda (report) (list (setq id (1+ id)) (apply (function vector) 
(cons ... ...))))) (sort (cl-mapcan (function (lambda (c) (let ... ...))) 
checkers) (function car-less-than-car)))))
|   (save-current-buffer (set-buffer buffer) (save-excursion (goto-char 
(point-min)) (let ((ast (org-element-parse-buffer)) (id 0) (last-line 1) 
(last-pos 1)) (mapcar (function (lambda (report) (list (setq id ...) (apply ... 
...)))) (sort (cl-mapcan (function (lambda ... ...)) checkers) (function 
car-less-than-car))))))
|   org-lint--generate-reports(#<buffer lint.org> ([cl-struct-org-lint-checker 
duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] 
[cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" 
(babel link) high] [cl-struct-org-lint-checker duplicate-target "Report 
duplicate targets" (link) high] [cl-struct-org-lint-checker 
duplicate-footnote-definition "Report duplicate footnote definitions" 
(footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords 
"Report orphaned affiliated keywords" (default) low] 
[cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]))
|   (setq tabulated-list-entries (org-lint--generate-reports 
org-lint--source-buffer org-lint--local-checkers))
|   org-lint--refresh-reports()
|   (save-current-buffer (set-buffer buffer) (org-lint--report-mode) (setq 
org-lint--source-buffer source) (setq org-lint--local-checkers checkers) 
(org-lint--refresh-reports) (tabulated-list-print) (add-hook (quote 
tabulated-list-revert-hook) (function org-lint--refresh-reports) nil t))
|   (let ((buffer (get-buffer-create "*Org Lint*"))) (save-current-buffer 
(set-buffer buffer) (org-lint--report-mode) (setq org-lint--source-buffer 
source) (setq org-lint--local-checkers checkers) (org-lint--refresh-reports) 
(tabulated-list-print) (add-hook (quote tabulated-list-revert-hook) (function 
org-lint--refresh-reports) nil t)) (pop-to-buffer buffer))
|   org-lint--display-reports(#<buffer lint.org> ([cl-struct-org-lint-checker 
duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] 
[cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" 
(babel link) high] [cl-struct-org-lint-checker duplicate-target "Report 
duplicate targets" (link) high] [cl-struct-org-lint-checker 
duplicate-footnote-definition "Report duplicate footnote definitions" 
(footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords 
"Report orphaned affiliated keywords" (default) low] 
[cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete 
affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker 
deprecated-header-syntax "Report deprecated Babel header syntax" (babel 
obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block 
"Report missing language in src blocks" (babel) high] 
[cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call 
blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME 
values with a colon" (babel) high] [cl-struct-org-lint-checker 
wrong-header-argument "Report wrong babel headers" (babel) high] 
[cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel 
headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup 
"Report misuse of CATEGORY keyword" (obsolete) high] 
[cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with 
unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-custom-id-link "Report \"custom-id\" links with unknown destination" 
(link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" 
links with unknown destination" (link) high] [cl-struct-org-lint-checker 
invalid-id-link "Report \"id\" links with unknown destination" (link) high] 
[cl-struct-org-lint-checker link-to-local-file "Report links to non-existent 
local files" (link) low] [cl-struct-org-lint-checker 
non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent 
file parameter" (default) low] [cl-struct-org-lint-checker 
wrong-include-link-parameter "Report INCLUDE keywords with misleading link 
parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item 
"Report unknown items in OPTIONS keyword" (export) low] 
[cl-struct-org-lint-checker invalid-macro-argument-and-template "Report 
spurious macro arguments or invalid macro templates" (export) low] 
[cl-struct-org-lint-checker special-property-in-properties-drawer "Report 
special properties in properties drawers" (properties) high] 
[cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax 
for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker 
undefined-footnote-reference "Report missing definition for footnote 
references" (footnote) high] [cl-struct-org-lint-checker 
unreferenced-footnote-definition "Report missing reference for footnote 
definitions" (footnote) high] [cl-struct-org-lint-checker 
extraneous-element-in-footnote-section "Report non-footnote definitions in 
footnote section" (footnote) high] [cl-struct-org-lint-checker 
invalid-keyword-syntax "Report probable invalid keywords" (default) low] 
[cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) 
low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced 
planning info line" (default) low] [cl-struct-org-lint-checker 
incomplete-drawer "Report probable incomplete drawers" (default) low] 
[cl-struct-org-lint-checker indented-diary-sexp "Report probable indented 
diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report 
obsolete QUOTE section" (obsolete) low]))
|   (if (not (with-no-warnings (called-interactively-p nil))) 
(org-lint--generate-reports (current-buffer) checkers) 
(org-lint--display-reports (current-buffer) checkers) (message "Org linting 
process completed"))
|   (let ((checkers (let* ((pcase-0 (function (lambda nil ...)))) (cond ((null 
arg) (let nil org-lint--checkers)) ((consp arg) (let* (...) (cond ... ... 
...))) (t (let nil (user-error "Invalid argument `%S' for `org-lint'" 
arg))))))) (if (not (with-no-warnings (called-interactively-p nil))) 
(org-lint--generate-reports (current-buffer) checkers) 
(org-lint--display-reports (current-buffer) checkers) (message "Org linting 
process completed")))
|   org-lint(nil)
|   funcall-interactively(org-lint nil)
|   call-interactively(org-lint record nil)
|   command-execute(org-lint record)
|   execute-extended-command(nil "org-lint")
|   smex-read-and-run(("org-lint" "rename-buffer" "package-autoremove" 
"package-list-packages" "magit-status" "recover-this-file" "desktop-read" 
"list-packages" "gnus" "revert-buffer" "load-theme" "notmuch-search" "shell" 
"rmk/org-edit-src-code-plus-name" "org-reload" "org-toggle-latex-fragment" 
"google-contacts" "sr-speedbar-toggle" "R" "org-babel-execute-subtree" 
"org-info" "ess-debug-command-next" "notmuch" "org2blog/wp-post-subtree" 
"google-this" "load-library" "emacs-version" "grep" "org-version" "apropos" 
"eval-last-sexp" "hs-hide-all" "org-mobile-push" "org2blog/wp-login" 
"pdf-tools-install" "speedbar" "projectile-find-file" "org-agenda" 
"server-start" "projectile-find-tag" "package-install" "beginning-of-buffer" 
"rmk/mac-switch-meta" "tabbar-backward-tab" "imenu-add-to-menubar" 
"add-file-local-variable" "ess-rdired" "search-forward" "org-mobile-pull" 
"sr-speedbar-open" ...))
|   smex()
|   funcall-interactively(smex)
|   call-interactively(smex nil nil)
|   command-execute(smex)
`----

-- 
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology, 
UCT), Dipl. Phys. (Germany)

Centre of Excellence for Invasion Biology
Stellenbosch University
South Africa

Tel :       +33 - (0)9 53 10 27 44
Cell:       +33 - (0)6 85 62 59 98
Fax :       +33 - (0)9 58 10 27 44

Fax (D):    +49 - (0)3 21 21 25 22 44

email:      address@hidden

Skype:      RMkrug

PGP: 0x0F52F982

signature.asc
Description: PGP signature