[O] Org-lint -- Lisp error: (wrong-type-argument arrayp nil)

[Fabrice Niessen]

Hello Nicolas,

When trying to lint my "Org mode refcard" [1], I get this error:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  replace-regexp-in-string("[   \n]+\\'" "" nil)
  (replace-regexp-in-string "\\`[       \n]+" "" (replace-regexp-in-string "[   
\n]+\\'" "" s))
  org-trim(nil)
  (org-babel-parse-header-arguments (org-trim (cond ((eq type (quote 
src-block)) (let nil (mapconcat (function identity) (cons (org-element-property 
:parameters datum) (org-element-property :header datum)) " "))) ...
  (list (org-babel-parse-header-arguments (org-trim (cond ((eq type (quote 
src-block)) (let nil (mapconcat (function identity) (cons ... ...) " "))) ((eq 
type (quote inline-src-block)) ...
  (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)) ...
  (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)))) ...
  (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)))) ...
  (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)) ...
  (closure ((reports) (ast org-data nil (section (:begin 1 :end 972 
:contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent 
(org-data nil #3 (headline (:raw-value "Summary" :begin 972 :end 2026 ...
  funcall((closure ((reports) (ast org-data nil (section (:begin 1 :end 972 
:contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent 
(org-data nil #3 (headline (:raw-value "Summary" :begin 972 :end 2026 ...
  (let ((result (funcall fun --data))) (cond ((not result)) (first-match (throw 
(quote --map-first-match) result)) (t (setq --acc (cons result --acc)))))
  (progn (let ((result (funcall fun --data))) (cond ((not result)) (first-match 
(throw (quote --map-first-match) result)) (t (setq --acc (cons result 
--acc))))))
  (if (memq --type types) (progn (let ((result (funcall fun --data))) (cond 
((not result)) (first-match (throw (quote --map-first-match) result)) (t (setq 
--acc (cons result --acc)))))))
  ...
  org-lint-wrong-header-value((org-data nil (section (:begin 1 :end 972 
:contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent 
#0) (keyword (:key "TITLE" :value "Org mode syntax quick reference card" ...
  funcall(org-lint-wrong-header-value (org-data nil (section (:begin 1 :end 972 
:contents-begin 1 :contents-end 971 :post-blank 1 :post-affiliated 1 :parent 
#0) (keyword (:key "TITLE" :value "Org mode syntax quick reference card" ...
  (save-excursion (funcall (intern (format "org-lint-%s" (progn (or (and 
(vectorp c) (>= ... 5) (memq ... cl-struct-org-lint-checker-tags)) (error "%s 
accessing a non-%s" (quote org-lint-checker-name) (quote org-lint-checker))) ...
  (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) 
c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn (or (and ... 
... ...) (error "%s accessing a non-%s" ... ...)) (aref c 1)))) ast)))
  (let ((trust (symbol-name (progn (or (and (vectorp c) (>= ... 5) (memq ... 
cl-struct-org-lint-checker-tags)) (error "%s accessing a non-%s" (quote 
org-lint-checker-trust) (quote org-lint-checker))) (aref c 4))))) ...
  (closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil (section 
(:begin 1 :end 972 :contents-begin 1 :contents-end 971 :post-blank 1 
:post-affiliated 1 :parent (org-data nil #3 (headline (:raw-value "Summary" 
:begin 972 :end 2026 ...
  ...
  org-lint(nil)
--8<---------------cut here---------------end--------------->8---

(I suppressed a lot of the output as this is 8 MB big...)

[1] https://github.com/fniessen/refcard-org-mode (WiP)

Best regards,
Fabrice

-- 
Fabrice Niessen
Leuven, Belgium
http://www.pirilampo.org/