Hi Tom, Could you provide a minimal example? I'm unable to debug from the stack trace alone.
Thanks, t...@tsdye.com (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