From mboxrd@z Thu Jan 1 00:00:00 1970 From: Chunyang Xu Subject: Bug: :results pp and code not working with multiple expressions for Emacs Lisp [9.0.9 (release_9.0.9-647-g0c9feb @ /Users/xcy/src/org-mode/lisp/)] Date: Mon, 17 Jul 2017 00:01:22 +0800 Message-ID: Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55848) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dWlzP-0003hy-5v for emacs-orgmode@gnu.org; Sun, 16 Jul 2017 12:01:48 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dWlzL-0001fZ-9k for emacs-orgmode@gnu.org; Sun, 16 Jul 2017 12:01:47 -0400 Received: from smtpbg65.qq.com ([103.7.28.233]:46425) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dWlzK-0001Du-DI for emacs-orgmode@gnu.org; Sun, 16 Jul 2017 12:01:43 -0400 Received: from Chunyangs-MacBook-Air.local (unknown [114.236.194.180]) by esmtp4.qq.com (ESMTP) with SMTP id 0 for ; Mon, 17 Jul 2017 00:01:23 +0800 (CST) 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" To: emacs-orgmode@gnu.org The following Emacs Lisp code block has multiple expressions. When I try to execute it, it fails and says "princ: Invalid function: (a b c)". #+BEGIN_SRC emacs-lisp :results value pp (setq my-list '(a b c)) my-list #+END_SRC Is it intended? --- Here is the Backtrace: Debugger entered--Lisp error: (invalid-function (a b c)) (a b c)(40) princ("(a b c)\n" (a b c)) pp((a b c) (a b c)) (progn (pp (setq my-list (quote (a b c))) my-list)) eval((progn (pp (setq my-list (quote (a b c))) my-list)) nil) (let* ((lexical (cdr (assq :lexical params))) (result (eval (read (format= (if (member "output" ...) "(with-output-to-string %s)" "(progn %s)") (org-= babel-expand-body:emacs-lisp body params))) (if (listp lexical) lexical (me= mber lexical (quote ("yes" "t"))))))) (let ((--params (cdr (assq :result-pa= rams params)))) (if (member "none" --params) nil (if (or (member "scalar" -= -params) (member "verbatim" --params) (member "html" --params) (member "cod= e" --params) (member "pp" --params) (member "file" --params) (and (or (memb= er "output" --params) (member "raw" --params) (member "org" --params) (memb= er "drawer" --params)) (not (member "table" --params)))) (let ((print-level= nil) (print-length nil)) (if (or (member "scalar" ...) (member "verbatim" = ...)) (format "%S" result) (format "%s" result))) (org-babel-reassemble-tab= le result (org-babel-pick-name (cdr (assq :colname-names params)) (cdr (ass= q :colnames params))) (org-babel-pick-name (cdr (assq :rowname-names params= )) (cdr (assq :rownames params)))))))) (progn (let* ((lexical (cdr (assq :lexical params))) (result (eval (read = (format (if ... "(with-output-to-string %s)" "(progn %s)") (org-babel-expan= d-body:emacs-lisp body params))) (if (listp lexical) lexical (member lexica= l (quote ...)))))) (let ((--params (cdr (assq :result-params params)))) (if= (member "none" --params) nil (if (or (member "scalar" --params) (member "v= erbatim" --params) (member "html" --params) (member "code" --params) (membe= r "pp" --params) (member "file" --params) (and (or ... ... ... ...) (not ..= .))) (let ((print-level nil) (print-length nil)) (if (or ... ...) (format "= %S" result) (format "%s" result))) (org-babel-reassemble-table result (org-= babel-pick-name (cdr ...) (cdr ...)) (org-babel-pick-name (cdr ...) (cdr ..= .)))))))) (unwind-protect (progn (let* ((lexical (cdr (assq :lexical params))) (res= ult (eval (read (format ... ...)) (if (listp lexical) lexical (member lexic= al ...))))) (let ((--params (cdr (assq :result-params params)))) (if (membe= r "none" --params) nil (if (or (member "scalar" --params) (member "verbatim= " --params) (member "html" --params) (member "code" --params) (member "pp" = --params) (member "file" --params) (and ... ...)) (let (... ...) (if ... ..= . ...)) (org-babel-reassemble-table result (org-babel-pick-name ... ...) (o= rg-babel-pick-name ... ...))))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (l= et* ((lexical (cdr (assq :lexical params))) (result (eval (read ...) (if ..= . lexical ...)))) (let ((--params (cdr ...))) (if (member "none" --params) = nil (if (or ... ... ... ... ... ... ...) (let ... ...) (org-babel-reassembl= e-table result ... ...)))))) (set-window-configuration wconfig))) org-babel-execute:emacs-lisp("(setq my-list '(a b c))\nmy-list" ((:colnam= e-names) (:rowname-names) (:result-params "replace" "value" "pp") (:result-= type . value) (:results . "replace value pp") (:exports . "code") (:session= . "none") (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no"= ) (:lexical . "no"))) org-babel-execute-src-block(nil ("emacs-lisp" "(setq my-list '(a b c))\nm= y-list" ((:colname-names) (:rowname-names) (:result-params "pp" "value" "re= place") (:result-type . value) (:results . "pp value replace") (:exports . = "code") (:lexical . "no") (:tangle . "no") (:hlines . "no") (:noweb . "no")= (:cache . "no") (:session . "none")) "" nil 5500 "(ref:%s)")) org-ctrl-c-ctrl-c(nil) funcall-interactively(org-ctrl-c-ctrl-c nil) call-interactively(org-ctrl-c-ctrl-c nil nil) command-execute(org-ctrl-c-ctrl-c) Emacs : GNU Emacs 25.2.1 (x86_64-apple-darwin16.6.0, Carbon Version 157 Ap= pKit 1504.83) of 2017-07-10 Package: Org mode version 9.0.9 (release_9.0.9-647-g0c9feb @ /Users/xcy/src= /org-mode/lisp/)