Debugger entered--Lisp error: (void-function org-table-to-lisp) (org-table-to-lisp) (mapcar (function (lambda (row) (if (and (symbolp row) (equal row (quote hline))) row (mapcar (function (lambda (el) (org-babel-read el ...))) row)))) (org-table-to-lisp)) org-babel-read-table() (cond ((eq val (quote fixed-width)) (let ((v (org-trim (org-element-property :value element)))) (or (org-babel--string-to-number v) v))) ((eq val (quote table)) (org-babel-read-table)) ((eq val (quote plain-list)) (org-babel-read-list)) ((eq val (quote example-block)) (let ((v (org-element-property :value element))) (if (or org-src-preserve-indentation (org-element-property :preserve-indent element)) v (org-remove-indentation v)))) ((eq val (quote export-block)) (org-remove-indentation (org-element-property :value element))) ((eq val (quote paragraph)) (skip-chars-forward " ") (if (and (looking-at org-bracket-link-regexp) (save-excursion (goto-char (match-end 0)) (skip-chars-forward " \n") (<= (org-element-property :end element) (point)))) (org-babel-read-link) (buffer-substring-no-properties (org-element-property :contents-begin element) (org-element-property :contents-end element)))) ((memq val (quote (special-block verse-block quote-block center-block))) (org-remove-indentation (buffer-substring-no-properties (org-element-property :contents-begin element) (org-element-property :contents-end element)))) (t nil)) (let* ((val (org-element-type element))) (cond ((eq val (quote fixed-width)) (let ((v (org-trim (org-element-property :value element)))) (or (org-babel--string-to-number v) v))) ((eq val (quote table)) (org-babel-read-table)) ((eq val (quote plain-list)) (org-babel-read-list)) ((eq val (quote example-block)) (let ((v (org-element-property :value element))) (if (or org-src-preserve-indentation (org-element-property :preserve-indent element)) v (org-remove-indentation v)))) ((eq val (quote export-block)) (org-remove-indentation (org-element-property :value element))) ((eq val (quote paragraph)) (skip-chars-forward " ") (if (and (looking-at org-bracket-link-regexp) (save-excursion (goto-char (match-end 0)) (skip-chars-forward " \n") (<= (org-element-property :end element) (point)))) (org-babel-read-link) (buffer-substring-no-properties (org-element-property :contents-begin element) (org-element-property :contents-end element)))) ((memq val (quote (special-block verse-block quote-block center-block))) (org-remove-indentation (buffer-substring-no-properties (org-element-property :contents-begin element) (org-element-property :contents-end element)))) (t nil))) (save-restriction (widen) (goto-char (org-element-property :post-affiliated element)) (let* ((val (org-element-type element))) (cond ((eq val (quote fixed-width)) (let ((v (org-trim ...))) (or (org-babel--string-to-number v) v))) ((eq val (quote table)) (org-babel-read-table)) ((eq val (quote plain-list)) (org-babel-read-list)) ((eq val (quote example-block)) (let ((v (org-element-property :value element))) (if (or org-src-preserve-indentation (org-element-property :preserve-indent element)) v (org-remove-indentation v)))) ((eq val (quote export-block)) (org-remove-indentation (org-element-property :value element))) ((eq val (quote paragraph)) (skip-chars-forward " ") (if (and (looking-at org-bracket-link-regexp) (save-excursion (goto-char ...) (skip-chars-forward " \n") (<= ... ...))) (org-babel-read-link) (buffer-substring-no-properties (org-element-property :contents-begin element) (org-element-property :contents-end element)))) ((memq val (quote (special-block verse-block quote-block center-block))) (org-remove-indentation (buffer-substring-no-properties (org-element-property :contents-begin element) (org-element-property :contents-end element)))) (t nil)))) (save-excursion (save-restriction (widen) (goto-char (org-element-property :post-affiliated element)) (let* ((val (org-element-type element))) (cond ((eq val (quote fixed-width)) (let ((v ...)) (or (org-babel--string-to-number v) v))) ((eq val (quote table)) (org-babel-read-table)) ((eq val (quote plain-list)) (org-babel-read-list)) ((eq val (quote example-block)) (let ((v ...)) (if (or org-src-preserve-indentation ...) v (org-remove-indentation v)))) ((eq val (quote export-block)) (org-remove-indentation (org-element-property :value element))) ((eq val (quote paragraph)) (skip-chars-forward " ") (if (and (looking-at org-bracket-link-regexp) (save-excursion ... ... ...)) (org-babel-read-link) (buffer-substring-no-properties (org-element-property :contents-begin element) (org-element-property :contents-end element)))) ((memq val (quote (special-block verse-block quote-block center-block))) (org-remove-indentation (buffer-substring-no-properties (org-element-property :contents-begin element) (org-element-property :contents-end element)))) (t nil))))) org-babel-read-element((table (:begin 14485 :end 15445 :type org :tblfm nil :contents-begin 14508 :contents-end 15444 :value nil :post-blank 1 :post-affiliated 14508 :name "subtasks-table" :parent nil))) (let* ((sym (org-babel-read-element e))) (if sym (let ((v sym)) (throw :found v)) (error "Reference not found"))) (cond ((eq val (quote babel-call)) (throw :found (org-babel-execute-src-block nil (org-babel-lob-get-info e) params))) ((eq val (quote src-block)) (throw :found (org-babel-execute-src-block nil nil (and (not org-babel-update-intermediate) params)))) (t (let* ((sym (org-babel-read-element e))) (if sym (let ((v sym)) (throw :found v)) (error "Reference not found"))))) (let* ((val (org-element-type e))) (cond ((eq val (quote babel-call)) (throw :found (org-babel-execute-src-block nil (org-babel-lob-get-info e) params))) ((eq val (quote src-block)) (throw :found (org-babel-execute-src-block nil nil (and (not org-babel-update-intermediate) params)))) (t (let* ((sym (org-babel-read-element e))) (if sym (let ((v sym)) (throw :found v)) (error "Reference not found")))))) (progn (goto-char (org-element-property :post-affiliated e)) (let* ((val (org-element-type e))) (cond ((eq val (quote babel-call)) (throw :found (org-babel-execute-src-block nil (org-babel-lob-get-info e) params))) ((eq val (quote src-block)) (throw :found (org-babel-execute-src-block nil nil (and (not org-babel-update-intermediate) params)))) (t (let* ((sym (org-babel-read-element e))) (if sym (let (...) (throw :found v)) (error "Reference not found"))))))) (if (equal (org-element-property :name e) ref) (progn (goto-char (org-element-property :post-affiliated e)) (let* ((val (org-element-type e))) (cond ((eq val (quote babel-call)) (throw :found (org-babel-execute-src-block nil (org-babel-lob-get-info e) params))) ((eq val (quote src-block)) (throw :found (org-babel-execute-src-block nil nil (and ... params)))) (t (let* ((sym ...)) (if sym (let ... ...) (error "Reference not found")))))))) (let ((e (org-element-at-point))) (if (equal (org-element-property :name e) ref) (progn (goto-char (org-element-property :post-affiliated e)) (let* ((val (org-element-type e))) (cond ((eq val (quote babel-call)) (throw :found (org-babel-execute-src-block nil ... params))) ((eq val (quote src-block)) (throw :found (org-babel-execute-src-block nil nil ...))) (t (let* (...) (if sym ... ...)))))))) (if (org-in-commented-heading-p) nil (let ((e (org-element-at-point))) (if (equal (org-element-property :name e) ref) (progn (goto-char (org-element-property :post-affiliated e)) (let* ((val (org-element-type e))) (cond ((eq val ...) (throw :found ...)) ((eq val ...) (throw :found ...)) (t (let* ... ...)))))))) (while (re-search-forward regexp nil t) (if (org-in-commented-heading-p) nil (let ((e (org-element-at-point))) (if (equal (org-element-property :name e) ref) (progn (goto-char (org-element-property :post-affiliated e)) (let* ((val ...)) (cond (... ...) (... ...) (t ...)))))))) (catch :found (while (re-search-forward regexp nil t) (if (org-in-commented-heading-p) nil (let ((e (org-element-at-point))) (if (equal (org-element-property :name e) ref) (progn (goto-char (org-element-property :post-affiliated e)) (let* (...) (cond ... ... ...))))))) (if (org-babel-ref-goto-headline-id ref) (progn (throw :found (org-babel-ref-headline-body)))) (let ((info (cdr (assq (intern ref) org-babel-library-of-babel)))) (if info (progn (throw :found (org-babel-execute-src-block nil info params))))) (error "Reference `%s' not found in this buffer" ref)) (let* ((params (append args (quote ((:results . "silent"))))) (regexp (org-babel-named-data-regexp-for-name ref)) (result (catch :found (while (re-search-forward regexp nil t) (if (org-in-commented-heading-p) nil (let (...) (if ... ...)))) (if (org-babel-ref-goto-headline-id ref) (progn (throw :found (org-babel-ref-headline-body)))) (let ((info (cdr ...))) (if info (progn (throw :found ...)))) (error "Reference `%s' not found in this buffer" ref)))) (cond ((symbolp result) (format "%S" result)) ((and index (listp result)) (org-babel-ref-index-list index result)) (t result))) (save-restriction (widen) (goto-char (point-min)) (let* ((params (append args (quote ((:results . "silent"))))) (regexp (org-babel-named-data-regexp-for-name ref)) (result (catch :found (while (re-search-forward regexp nil t) (if (org-in-commented-heading-p) nil (let ... ...))) (if (org-babel-ref-goto-headline-id ref) (progn (throw :found ...))) (let ((info ...)) (if info (progn ...))) (error "Reference `%s' not found in this buffer" ref)))) (cond ((symbolp result) (format "%S" result)) ((and index (listp result)) (org-babel-ref-index-list index result)) (t result)))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (let* ((params (append args (quote (...)))) (regexp (org-babel-named-data-regexp-for-name ref)) (result (catch :found (while (re-search-forward regexp nil t) (if ... nil ...)) (if (org-babel-ref-goto-headline-id ref) (progn ...)) (let (...) (if info ...)) (error "Reference `%s' not found in this buffer" ref)))) (cond ((symbolp result) (format "%S" result)) ((and index (listp result)) (org-babel-ref-index-list index result)) (t result))))) (let ((case-fold-search t) args new-refere new-header-args new-referent split-file split-ref index) (if (and (string-match "\\[\\([^\\[]+\\)\\]$" ref) (let ((str (substring ref 0 (match-beginning 0)))) (= (cl-count 40 str) (cl-count 41 str)))) (progn (setq index (match-string 1 ref)) (setq ref (substring ref 0 (match-beginning 0))))) (if (string-match "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (progn (setq new-refere (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq new-referent (match-string 5 ref)) (if (> (length new-refere) 0) (progn (if (> (length new-referent) 0) (progn (setq args ...))) (if (> (length new-header-args) 0) (progn (setq args ...))) (setq ref new-refere))))) (if (string-match "^\\(.+\\):\\(.+\\)$" ref) (progn (setq split-file (match-string 1 ref)) (setq split-ref (match-string 2 ref)) (find-file split-file) (setq ref split-ref))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (let* ((params (append args (quote ...))) (regexp (org-babel-named-data-regexp-for-name ref)) (result (catch :found (while ... ...) (if ... ...) (let ... ...) (error "Reference `%s' not found in this buffer" ref)))) (cond ((symbolp result) (format "%S" result)) ((and index (listp result)) (org-babel-ref-index-list index result)) (t result)))))) (save-excursion (let ((case-fold-search t) args new-refere new-header-args new-referent split-file split-ref index) (if (and (string-match "\\[\\([^\\[]+\\)\\]$" ref) (let ((str (substring ref 0 ...))) (= (cl-count 40 str) (cl-count 41 str)))) (progn (setq index (match-string 1 ref)) (setq ref (substring ref 0 (match-beginning 0))))) (if (string-match "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (progn (setq new-refere (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq new-referent (match-string 5 ref)) (if (> (length new-refere) 0) (progn (if (> ... 0) (progn ...)) (if (> ... 0) (progn ...)) (setq ref new-refere))))) (if (string-match "^\\(.+\\):\\(.+\\)$" ref) (progn (setq split-file (match-string 1 ref)) (setq split-ref (match-string 2 ref)) (find-file split-file) (setq ref split-ref))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (let* ((params (append args ...)) (regexp (org-babel-named-data-regexp-for-name ref)) (result (catch :found ... ... ... ...))) (cond ((symbolp result) (format "%S" result)) ((and index ...) (org-babel-ref-index-list index result)) (t result))))))) (save-current-buffer (set-buffer (or org-babel-exp-reference-buffer (current-buffer))) (save-excursion (let ((case-fold-search t) args new-refere new-header-args new-referent split-file split-ref index) (if (and (string-match "\\[\\([^\\[]+\\)\\]$" ref) (let ((str ...)) (= (cl-count 40 str) (cl-count 41 str)))) (progn (setq index (match-string 1 ref)) (setq ref (substring ref 0 (match-beginning 0))))) (if (string-match "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (progn (setq new-refere (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq new-referent (match-string 5 ref)) (if (> (length new-refere) 0) (progn (if ... ...) (if ... ...) (setq ref new-refere))))) (if (string-match "^\\(.+\\):\\(.+\\)$" ref) (progn (setq split-file (match-string 1 ref)) (setq split-ref (match-string 2 ref)) (find-file split-file) (setq ref split-ref))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (let* ((params ...) (regexp ...) (result ...)) (cond (... ...) (... ...) (t result)))))))) (progn (save-current-buffer (set-buffer (or org-babel-exp-reference-buffer (current-buffer))) (save-excursion (let ((case-fold-search t) args new-refere new-header-args new-referent split-file split-ref index) (if (and (string-match "\\[\\([^\\[]+\\)\\]$" ref) (let (...) (= ... ...))) (progn (setq index (match-string 1 ref)) (setq ref (substring ref 0 ...)))) (if (string-match "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (progn (setq new-refere (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq new-referent (match-string 5 ref)) (if (> ... 0) (progn ... ... ...)))) (if (string-match "^\\(.+\\):\\(.+\\)$" ref) (progn (setq split-file (match-string 1 ref)) (setq split-ref (match-string 2 ref)) (find-file split-file) (setq ref split-ref))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (let* (... ... ...) (cond ... ... ...)))))))) (unwind-protect (progn (save-current-buffer (set-buffer (or org-babel-exp-reference-buffer (current-buffer))) (save-excursion (let ((case-fold-search t) args new-refere new-header-args new-referent split-file split-ref index) (if (and (string-match "\\[\\([^\\[]+\\)\\]$" ref) (let ... ...)) (progn (setq index ...) (setq ref ...))) (if (string-match "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (progn (setq new-refere ...) (setq new-header-args ...) (setq new-referent ...) (if ... ...))) (if (string-match "^\\(.+\\):\\(.+\\)$" ref) (progn (setq split-file ...) (setq split-ref ...) (find-file split-file) (setq ref split-ref))) (save-excursion (save-restriction (widen) (goto-char ...) (let* ... ...))))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (save-current-buffer (set-buffer (or org-babel-exp-reference-buffer (current-buffer))) (save-excursion (let ((case-fold-search t) args new-refere new-header-args new-referent split-file split-ref index) (if (and ... ...) (progn ... ...)) (if (string-match "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (progn ... ... ... ...)) (if (string-match "^\\(.+\\):\\(.+\\)$" ref) (progn ... ... ... ...)) (save-excursion (save-restriction ... ... ...)))))) (set-window-configuration wconfig))) org-babel-ref-resolve("subtasks-table[2:-1]")