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

[Fabrice Niessen <fni-news-TA4HMoP+1wHrZ44/DZwexQ@public.gmane.org>]

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/