Re: [O] Lisp code blocks fail

[Eric Schulte]

Hi Tom,

Could you provide a minimal example?  I'm unable to debug from the stack
trace alone.

Thanks,

address@hidden (Thomas S. Dye) writes:

> Aloha all,
>
> With a recent pull, Lisp code blocks that I'm fairly certain were
> working previously started to fail. There is a backtrace below. The Lisp
> code executes correctly, but Babel doesn't appear to get the results in
> the form it expects (if I'm reading the backtrace correctly).
>
> Have I mucked up somehow?
>
> Debugger entered--Lisp error: (wrong-type-argument listp "((\"t2\" \"b\"))")
>   byte-code("\211A@)\207" [result x] 2)
>   org-babel-execute:lisp("(unless (boundp '*cycle-graph*)\n (defvar
> *cycle-graph*))\n(setq *cycle-graph* (populate (make-instance
> digraph)))\n(let ((r)\n (flag))\n (dolist (e edges r)\n (add-edge
> *cycle-graph*\n (list (read-from-string (first e))\n (read-from-string
> (second e))))\n (when (and (not flag) (setf flag (cycles
> *cycle-graph*))) (push e r))))" ((:comments . "") (:shebang . "")
> (:cache . "no") (:padline . "") (:noweb . "yes") (:tangle . "no")
> (:exports . "code") (:results . "silent") (:var edges ("t1" "a") ("a"
> "t2") ("b" "t1") ("t2" "b")) (:colnames . "yes") (:hlines . "no")
> (:session . "none") (:result-type . value) (:result-params "silent")
> (:rowname-names) (:colname-names (edges "older" "younger"))))
>   org-babel-execute-src-block(nil)
>   org-babel-execute-src-block-maybe()
>   org-babel-execute-maybe()
>   org-babel-execute-safely-maybe()
>   run-hook-with-args-until-success(org-babel-execute-safely-maybe)
>   org-ctrl-c-ctrl-c(nil)
>   ad-Orig-call-interactively(org-ctrl-c-ctrl-c nil nil)
>   (with-no-warnings (ad-Orig-call-interactively function record-flag keys))
>   (setq ad-return-value (with-no-warnings (ad-Orig-call-interactively 
> function record-flag keys)))
>   (let ((ido-ubiquitous-next-override
> (ido-ubiquitous-get-command-override function))) (setq ad-return-value
> (with-no-warnings (ad-Orig-call-interactively function record-flag
> keys))))
>   (ido-ubiquitous-with-override (ido-ubiquitous-get-command-override
> function) (setq ad-return-value (with-no-warnings
> (ad-Orig-call-interactively function record-flag keys))))
>   (let (ad-return-value) (ido-ubiquitous-with-override
> (ido-ubiquitous-get-command-override function) (setq ad-return-value
> (with-no-warnings (ad-Orig-call-interactively function record-flag
> keys)))) ad-return-value)
>   call-interactively(org-ctrl-c-ctrl-c nil nil)
>
> All the best,
> Tom

-- 
Eric Schulte
https://cs.unm.edu/~eschulte
PGP: 0x614CA05D