* BUG in org-lint and tangle
@ 2015-10-19 15:36 Rainer M Krug
2015-10-23 15:41 ` Rainer M Krug
2015-10-24 9:39 ` Nicolas Goaziou
0 siblings, 2 replies; 4+ messages in thread
From: Rainer M Krug @ 2015-10-19 15:36 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 83497 bytes --]
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.\v]+" 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.\v]+\\)[ ]*=" ...) (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) "\b\211.:\204.\0 ;\205.\0\306\202.\0 @9\205.\0 @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202.\x0e.\b!\211.\x15\203\201.\x0e.\203z.\314\315.\x15\"\210\202\201.\x0e.\x0e.B.\x17).\x18\316=\203\312.\b;\204\312.\n.\x19\236A\313.\x1a\211.^[\203\311.\x0e.@.\x1a\f.\x1a\b.\x1e. ;\203\266.\317\320.\x1c #\202\275.\307 A@.\x1c\"*!\210.^[A\211.^[\204\234.*.\x1d\203\202.\x0e.\316=\203\202.\n.\x1e>\203\202.\x0e\x1f\313. \211.^[\203\201.\x0e.@\211. @. A\b.\x1e. ;\203.\x01\317\320.\x1c #\202\v.\307 A@.\x1c\"*.!.\".!\203w.\x0e\".#\235\203_.\x0e\".$\235\203P.\321.!!\313.%\211.^[\203L.\x0e.@.%\f.%A!\210\f.%@!\210.^[A\211.^[\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\x0e\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.^[A\211.^[\204\350.*\n.&>\206\337.\b\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337.\x0e.\322=\203\265.\n.'>?\206\337.\x0e.\323=\203\303.\n.(>\206\337.\311\f\b\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) "\b\211.:\204.\0 ;\205.\0\306\202.\0 @9\205.\0 @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202.\x0e.\b!\211.\x15\203\201.\x0e.\203z.\314\315.\x15\"\210\202\201.\x0e.\x0e.B.\x17).\x18\316=\203\312.\b;\204\312.\n.\x19\236A\313.\x1a\211.^[\203\311.\x0e.@.\x1a\f.\x1a\b.\x1e. ;\203\266.\317\320.\x1c #\202\275.\307 A@.\x1c\"*!\210.^[A\211.^[\204\234.*.\x1d\203\202.\x0e.\316=\203\202.\n.\x1e>\203\202.\x0e\x1f\313. \211.^[\203\201.\x0e.@\211. @. A\b.\x1e. ;\203.\x01\317\320.\x1c #\202\v.\307 A@.\x1c\"*.!.\".!\203w.\x0e\".#\235\203_.\x0e\".$\235\203P.\321.!!\313.%\211.^[\203L.\x0e.@.%\f.%A!\210\f.%@!\210.^[A\211.^[\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\x0e\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.^[A\211.^[\204\350.*\n.&>\206\337.\b\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337.\x0e.\322=\203\265.\n.'>?\206\337.\x0e.\323=\203\303.\n.(>\206\337.\311\f\b\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) "\b\211.:\204.\0 ;\205.\0\306\202.\0 @9\205.\0 @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202.\x0e.\b!\211.\x15\203\201.\x0e.\203z.\314\315.\x15\"\210\202\201.\x0e.\x0e.B.\x17).\x18\316=\203\312.\b;\204\312.\n.\x19\236A\313.\x1a\211.^[\203\311.\x0e.@.\x1a\f.\x1a\b.\x1e. ;\203\266.\317\320.\x1c #\202\275.\307 A@.\x1c\"*!\210.^[A\211.^[\204\234.*.\x1d\203\202.\x0e.\316=\203\202.\n.\x1e>\203\202.\x0e\x1f\313. \211.^[\203\201.\x0e.@\211. @. A\b.\x1e. ;\203.\x01\317\320.\x1c #\202\v.\307 A@.\x1c\"*.!.\".!\203w.\x0e\".#\235\203_.\x0e\".$\235\203P.\321.!!\313.%\211.^[\203L.\x0e.@.%\f.%A!\210\f.%@!\210.^[A\211.^[\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\x0e\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.^[A\211.^[\204\350.*\n.&>\206\337.\b\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337.\x0e.\322=\203\265.\n.'>?\206\337.\x0e.\323=\203\303.\n.(>\206\337.\311\f\b\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) "\b\211.:\204.\0 ;\205.\0\306\202.\0 @9\205.\0 @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202.\x0e.\b!\211.\x15\203\201.\x0e.\203z.\314\315.\x15\"\210\202\201.\x0e.\x0e.B.\x17).\x18\316=\203\312.\b;\204\312.\n.\x19\236A\313.\x1a\211.^[\203\311.\x0e.@.\x1a\f.\x1a\b.\x1e. ;\203\266.\317\320.\x1c #\202\275.\307 A@.\x1c\"*!\210.^[A\211.^[\204\234.*.\x1d\203\202.\x0e.\316=\203\202.\n.\x1e>\203\202.\x0e\x1f\313. \211.^[\203\201.\x0e.@\211. @. A\b.\x1e. ;\203.\x01\317\320.\x1c #\202\v.\307 A@.\x1c\"*.!.\".!\203w.\x0e\".#\235\203_.\x0e\".$\235\203P.\321.!!\313.%\211.^[\203L.\x0e.@.%\f.%A!\210\f.%@!\210.^[A\211.^[\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\x0e\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.^[A\211.^[\204\350.*\n.&>\206\337.\b\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337.\x0e.\322=\203\265.\n.'>?\206\337.\x0e.\323=\203\303.\n.(>\206\337.\311\f\b\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) "\b\211.:\204.\0 ;\205.\0\306\202.\0 @9\205.\0 @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202.\x0e.\b!\211.\x15\203\201.\x0e.\203z.\314\315.\x15\"\210\202\201.\x0e.\x0e.B.\x17).\x18\316=\203\312.\b;\204\312.\n.\x19\236A\313.\x1a\211.^[\203\311.\x0e.@.\x1a\f.\x1a\b.\x1e. ;\203\266.\317\320.\x1c #\202\275.\307 A@.\x1c\"*!\210.^[A\211.^[\204\234.*.\x1d\203\202.\x0e.\316=\203\202.\n.\x1e>\203\202.\x0e\x1f\313. \211.^[\203\201.\x0e.@\211. @. A\b.\x1e. ;\203.\x01\317\320.\x1c #\202\v.\307 A@.\x1c\"*.!.\".!\203w.\x0e\".#\235\203_.\x0e\".$\235\203P.\321.!!\313.%\211.^[\203L.\x0e.@.%\f.%A!\210\f.%@!\210.^[A\211.^[\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\x0e\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.^[A\211.^[\204\350.*\n.&>\206\337.\b\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337.\x0e.\322=\203\265.\n.'>?\206\337.\x0e.\323=\203\303.\n.(>\206\337.\311\f\b\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) "\b\211.:\204.\0 ;\205.\0\306\202.\0 @9\205.\0 @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202.\x0e.\b!\211.\x15\203\201.\x0e.\203z.\314\315.\x15\"\210\202\201.\x0e.\x0e.B.\x17).\x18\316=\203\312.\b;\204\312.\n.\x19\236A\313.\x1a\211.^[\203\311.\x0e.@.\x1a\f.\x1a\b.\x1e. ;\203\266.\317\320.\x1c #\202\275.\307 A@.\x1c\"*!\210.^[A\211.^[\204\234.*.\x1d\203\202.\x0e.\316=\203\202.\n.\x1e>\203\202.\x0e\x1f\313. \211.^[\203\201.\x0e.@\211. @. A\b.\x1e. ;\203.\x01\317\320.\x1c #\202\v.\307 A@.\x1c\"*.!.\".!\203w.\x0e\".#\235\203_.\x0e\".$\235\203P.\321.!!\313.%\211.^[\203L.\x0e.@.%\f.%A!\210\f.%@!\210.^[A\211.^[\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\x0e\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.^[A\211.^[\204\350.*\n.&>\206\337.\b\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337.\x0e.\322=\203\265.\n.'>?\206\337.\x0e.\323=\203\303.\n.(>\206\337.\311\f\b\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) "\b\211.:\204.\0 ;\205.\0\306\202.\0 @9\205.\0 @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202.\x0e.\b!\211.\x15\203\201.\x0e.\203z.\314\315.\x15\"\210\202\201.\x0e.\x0e.B.\x17).\x18\316=\203\312.\b;\204\312.\n.\x19\236A\313.\x1a\211.^[\203\311.\x0e.@.\x1a\f.\x1a\b.\x1e. ;\203\266.\317\320.\x1c #\202\275.\307 A@.\x1c\"*!\210.^[A\211.^[\204\234.*.\x1d\203\202.\x0e.\316=\203\202.\n.\x1e>\203\202.\x0e\x1f\313. \211.^[\203\201.\x0e.@\211. @. A\b.\x1e. ;\203.\x01\317\320.\x1c #\202\v.\307 A@.\x1c\"*.!.\".!\203w.\x0e\".#\235\203_.\x0e\".$\235\203P.\321.!!\313.%\211.^[\203L.\x0e.@.%\f.%A!\210\f.%@!\210.^[A\211.^[\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\x0e\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.^[A\211.^[\204\350.*\n.&>\206\337.\b\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337.\x0e.\322=\203\265.\n.'>?\206\337.\x0e.\323=\203\303.\n.(>\206\337.\311\f\b\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: Rainer@krugs.de
Skype: RMkrug
PGP: 0x0F52F982
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 454 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: BUG in org-lint and tangle
2015-10-19 15:36 BUG in org-lint and tangle Rainer M Krug
@ 2015-10-23 15:41 ` Rainer M Krug
2015-10-24 9:39 ` Nicolas Goaziou
1 sibling, 0 replies; 4+ messages in thread
From: Rainer M Krug @ 2015-10-23 15:41 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 87298 bytes --]
I just want to bring this bug to attention again.
Confirmed with
GNU Emacs 24.5.1 (x86_64-apple-darwin14.5.0, Carbon Version 157 AppKit 1348.17) of 2015-08-28 on Rainers-MacBook-Pro.local
starter with -Q
obviously there only for tangle.
Cheers
Rainer
Rainer M Krug <Rainer@krugs.de> writes:
> 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.
>
>
> * Test
> #+begin_src R :exports
> #+end_src
>
>
> Cheers,
>
> Rainer
>
> ,----
> | Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> | string-match("[ \f \n.\v]+" 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.\v]+\\)[ ]*=" ...)
> (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) "\b\211.:\204.. ;\205..\306\202.. @9\205..
> @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202...\b!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.\b;\204\312.\n..\236A\313..\211..\203\311...@..\f..\b... ;\203\266.\317\320..
> #\202\275.\307
> A@..\"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\x1f\313. \211..\203\201...@\211. @. A\b... ;\203..\317\320..
> #\202\v.\307
> A@..\"*.!.\".!\203w..\".#\235\203_..\".$\235\203P.\321.!!\313.%\211..\203L...@.%\f.%A!\210\f.%@!\210..A\211..\2042.*\202w.\f.!A!\210\f.!@!\210\202w..\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\b\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\b\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) "\b\211.:\204.. ;\205..\306\202.. @9\205..
> @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202...\b!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.\b;\204\312.\n..\236A\313..\211..\203\311...@..\f..\b... ;\203\266.\317\320..
> #\202\275.\307
> A@..\"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\x1f\313. \211..\203\201...@\211. @. A\b... ;\203..\317\320..
> #\202\v.\307
> A@..\"*.!.\".!\203w..\".#\235\203_..\".$\235\203P.\321.!!\313.%\211..\203L...@.%\f.%A!\210\f.%@!\210..A\211..\2042.*\202w.\f.!A!\210\f.!@!\210\202w..\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\b\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\b\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) "\b\211.:\204.. ;\205..\306\202.. @9\205..
> @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202...\b!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.\b;\204\312.\n..\236A\313..\211..\203\311...@..\f..\b... ;\203\266.\317\320..
> #\202\275.\307
> A@..\"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\x1f\313. \211..\203\201...@\211. @. A\b... ;\203..\317\320..
> #\202\v.\307
> A@..\"*.!.\".!\203w..\".#\235\203_..\".$\235\203P.\321.!!\313.%\211..\203L...@.%\f.%A!\210\f.%@!\210..A\211..\2042.*\202w.\f.!A!\210\f.!@!\210\202w..\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\b\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\b\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) "\b\211.:\204.. ;\205..\306\202.. @9\205..
> @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202...\b!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.\b;\204\312.\n..\236A\313..\211..\203\311...@..\f..\b... ;\203\266.\317\320..
> #\202\275.\307
> A@..\"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\x1f\313. \211..\203\201...@\211. @. A\b... ;\203..\317\320..
> #\202\v.\307
> A@..\"*.!.\".!\203w..\".#\235\203_..\".$\235\203P.\321.!!\313.%\211..\203L...@.%\f.%A!\210\f.%@!\210..A\211..\2042.*\202w.\f.!A!\210\f.!@!\210\202w..\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\b\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\b\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) "\b\211.:\204.. ;\205..\306\202.. @9\205..
> @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202...\b!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.\b;\204\312.\n..\236A\313..\211..\203\311...@..\f..\b... ;\203\266.\317\320..
> #\202\275.\307
> A@..\"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\x1f\313. \211..\203\201...@\211. @. A\b... ;\203..\317\320..
> #\202\v.\307
> A@..\"*.!.\".!\203w..\".#\235\203_..\".$\235\203P.\321.!!\313.%\211..\203L...@.%\f.%A!\210\f.%@!\210..A\211..\2042.*\202w.\f.!A!\210\f.!@!\210\202w..\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\b\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\b\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) "\b\211.:\204.. ;\205..\306\202.. @9\205..
> @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202...\b!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.\b;\204\312.\n..\236A\313..\211..\203\311...@..\f..\b... ;\203\266.\317\320..
> #\202\275.\307
> A@..\"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\x1f\313. \211..\203\201...@\211. @. A\b... ;\203..\317\320..
> #\202\v.\307
> A@..\"*.!.\".!\203w..\".#\235\203_..\".$\235\203P.\321.!!\313.%\211..\203L...@.%\f.%A!\210\f.%@!\210..A\211..\2042.*\202w.\f.!A!\210\f.!@!\210\202w..\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\b\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\b\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) "\b\211.:\204.. ;\205..\306\202.. @9\205..
> @).\b?\206\337.\v\203,.\b\307\v\310\">\206\337.\n\2047.\311\f\b\"\202\337.\n\312=\203\\.\311\f\b\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202...\b!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.\b;\204\312.\n..\236A\313..\211..\203\311...@..\f..\b... ;\203\266.\317\320..
> #\202\275.\307
> A@..\"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\x1f\313. \211..\203\201...@\211. @. A\b... ;\203..\317\320..
> #\202\v.\307
> A@..\"*.!.\".!\203w..\".#\235\203_..\".$\235\203P.\321.!!\313.%\211..\203L...@.%\f.%A!\210\f.%@!\210..A\211..\2042.*\202w.\f.!A!\210\f.!@!\210\202w..\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\b\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\b\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: Rainer@krugs.de
Skype: RMkrug
PGP: 0x0F52F982
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 454 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: BUG in org-lint and tangle
2015-10-19 15:36 BUG in org-lint and tangle Rainer M Krug
2015-10-23 15:41 ` Rainer M Krug
@ 2015-10-24 9:39 ` Nicolas Goaziou
2015-10-24 11:19 ` Rainer M Krug
1 sibling, 1 reply; 4+ messages in thread
From: Nicolas Goaziou @ 2015-10-24 9:39 UTC (permalink / raw)
To: Rainer M Krug; +Cc: emacs-orgmode
Hello,
Rainer M Krug <Rainer@krugs.de> writes:
> 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.
>
>
> * Test #+begin_src R :exports #+end_src
Fixed. Thank you.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: BUG in org-lint and tangle
2015-10-24 9:39 ` Nicolas Goaziou
@ 2015-10-24 11:19 ` Rainer M Krug
0 siblings, 0 replies; 4+ messages in thread
From: Rainer M Krug @ 2015-10-24 11:19 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 823 bytes --]
Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:
> Hello,
>
> Rainer M Krug <Rainer@krugs.de> writes:
>
>> 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.
>>
>>
>> * Test #+begin_src R :exports #+end_src
>
> Fixed. Thank you.
Thanks,
Rainer
>
> Regards,
--
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: Rainer@krugs.de
Skype: RMkrug
PGP: 0x0F52F982
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 454 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2015-10-24 11:19 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-10-19 15:36 BUG in org-lint and tangle Rainer M Krug
2015-10-23 15:41 ` Rainer M Krug
2015-10-24 9:39 ` Nicolas Goaziou
2015-10-24 11:19 ` Rainer M Krug
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).