From mboxrd@z Thu Jan 1 00:00:00 1970 From: tsd@tsdye.com (Thomas S. Dye) Subject: Lisp code blocks fail Date: Tue, 12 Nov 2013 19:04:00 -1000 Message-ID: Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39250) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VgSce-00023G-8o for emacs-orgmode@gnu.org; Wed, 13 Nov 2013 00:04:19 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VgScX-00041b-B7 for emacs-orgmode@gnu.org; Wed, 13 Nov 2013 00:04:12 -0500 Received: from oproxy4-pub.mail.unifiedlayer.com ([74.220.216.66]:47284) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1VgScX-00041V-3V for emacs-orgmode@gnu.org; Wed, 13 Nov 2013 00:04:05 -0500 Received: from [98.155.255.145] (port=55504 helo=poto.local) by box472.bluehost.com with esmtpsa (TLSv1:CAMELLIA128-SHA:128) (Exim 4.82) (envelope-from ) id 1VgScT-0003oI-UZ for emacs-orgmode@gnu.org; Tue, 12 Nov 2013 22:04:02 -0700 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org-mode 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