[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Lisp code blocks fail
From: |
Thomas S. Dye |
Subject: |
[O] Lisp code blocks fail |
Date: |
Tue, 12 Nov 2013 19:04:00 -1000 |
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
--
T.S. Dye & Colleagues, Archaeologists
735 Bishop St, Suite 315, Honolulu, HI 96813
Tel: 808-529-0866, Fax: 808-529-0884
http://www.tsdye.com
- [O] Lisp code blocks fail,
Thomas S. Dye <=
- Re: [O] Lisp code blocks fail, Eric Schulte, 2013/11/13
- Re: [O] Lisp code blocks fail, Thomas S. Dye, 2013/11/13
- Re: [O] Lisp code blocks fail, Eric Schulte, 2013/11/13
- Re: [O] Lisp code blocks fail, Thomas S. Dye, 2013/11/15
- Re: [O] Lisp code blocks fail, Thomas S. Dye, 2013/11/17
- Re: [O] Lisp code blocks fail, Eric Schulte, 2013/11/19
- Re: [O] Lisp code blocks fail, Thomas S. Dye, 2013/11/19