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/)]

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/)]

[Chunyang Xu]

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 (member lexical (quote ("yes" "t"))))))) (let ((--params (cdr (assq :result-params params)))) (if (member "none" --params) nil (if (or (member "scalar" --params) (member "verbatim" --params) (member "html" --params) (member "code" --params) (member "pp" --params) (member "file" --params) (and (or (member "output" --params) (member "raw" --params) (member "org" --params) (member "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-table result (org-babel-pick-name (cdr (assq :colname-names params)) (cdr (assq :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-expand-body:emacs-lisp body params))) (if (listp lexical) lexical (member lexical (quote ...)))))) (let ((--params (cdr (assq :result-params params)))) (if (member "none" --params) nil (if (or (member "scalar" --params) (member "verbatim" --params) (member "html" --params) (member "code" --params) (member "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))) (result (eval (read (format ... ...)) (if (listp lexical) lexical (member lexical ...))))) (let ((--params (cdr (assq :result-params params)))) (if (member "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 ... ...) (org-babel-pick-name ... ...))))))) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let* ((lexical (cdr (assq :lexical params))) (result (eval (read ...) (if ... lexical ...)))) (let ((--params (cdr ...))) (if (member "none" --params) nil (if (or ... ... ... ... ... ... ...) (let ... ...) (org-babel-reassemble-table result ... ...)))))) (set-window-configuration wconfig)))
  org-babel-execute:emacs-lisp("(setq my-list '(a b c))\nmy-list" ((:colname-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))\nmy-list" ((:colname-names) (:rowname-names) (:result-params "pp" "value" "replace") (: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 AppKit 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/)

Re: 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/)]

[Nicolas Goaziou]

Hello,

Chunyang Xu <mail@xuchunyang.me> writes:

> 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))

Fixed. Thank you.

Regards,

-- 
Nicolas Goaziou