From mboxrd@z Thu Jan  1 00:00:00 1970
From: Kodi Arfer <kodi@arfer.net>
Subject: Error when using :session :colnames yes :results graphics on an R
 code block
Date: Wed, 28 Dec 2016 10:46:09 -0800
Message-ID: <225a369e-d62f-8dec-a276-8e02a8685994@arfer.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:44611)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <kodi@arfer.net>) id 1cMJEx-0000UH-3u
	for emacs-orgmode@gnu.org; Wed, 28 Dec 2016 13:46:22 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <kodi@arfer.net>) id 1cMJEt-00037n-Pe
	for emacs-orgmode@gnu.org; Wed, 28 Dec 2016 13:46:19 -0500
Received: from mxout-07.mxes.net ([216.86.168.182]:12608)
	by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
	(Exim 4.71) (envelope-from <kodi@arfer.net>) id 1cMJEt-00036z-5c
	for emacs-orgmode@gnu.org; Wed, 28 Dec 2016 13:46:15 -0500
Received: from [45.49.139.19] (unknown [45.49.139.19])
	(using TLSv1.2 with cipher DHE-RSA-AES128-SHA (128/128 bits))
	(No client certificate requested)
	by smtp.mxes.net (Postfix) with ESMTPSA id E677622E253
	for <emacs-orgmode@gnu.org>; Wed, 28 Dec 2016 13:46:10 -0500 (EST)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode/>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: emacs-orgmode@gnu.org

If I run Emacs with

     emacs -Q --eval '(progn (add-to-list (quote load-path) 
"/home/hippo/.emacs.d/elpa/org-20161224") (add-to-list (quote load-path) 
"/home/hippo/.emacs.d/elpa/ess-20161223.108/lisp") (require (quote 
ess-site)))'

, open an Org file containing

     #+BEGIN_SRC R :session :file /tmp/foo.png :results graphics 
:colnames yes
     library(ggplot2)
     qplot(c(1, 2, 3), c(2, 4, 9))
     #+END_SRC

     #+RESULTS:
     [[file:/tmp/foo.png]]

, add R to org-babel-load-languages, and hit C-c C-c on the
code block, I get the error:

     cons: Wrong type argument: listp, "x
     1"

If I remove ":colnames yes", the error doesn't happen and the
file is produced as expected.

The full backtrace is:

     org-babel-R-process-value-result("x\n1" t)
     org-babel-R-evaluate-session("*R*" "png(filename=\"/tmp/foo.png\"); 
tryCatch({\nlibrary(ggplot2)\nqplot(c(1, 2, 3), c(2, 4, 
9))\n},error=function(e){plot(x=-1:1, y=-1:1, type='n', xlab='', 
ylab='', axes=FALSE); text(x=0, y=0, labels=e$message, col='red'); 
paste('ERROR', e$message, sep=' : ')}); dev.off()" value ("file" 
"graphics" "replace") t nil)
     org-babel-R-evaluate("*R*" "png(filename=\"/tmp/foo.png\"); 
tryCatch({\nlibrary(ggplot2)\nqplot(c(1, 2, 3), c(2, 4, 
9))\n},error=function(e){plot(x=-1:1, y=-1:1, type='n', xlab='', 
ylab='', axes=FALSE); text(x=0, y=0, labels=e$message, col='red'); 
paste('ERROR', e$message, sep=' : ')}); dev.off()" value ("file" 
"graphics" "replace") t nil)
     org-babel-execute:R("library(ggplot2)\nqplot(c(1, 2, 3), c(2, 4, 
9))" ((:colname-names) (:rowname-names) (:result-params "file" 
"graphics" "replace") (:result-type . value) (:results . "file graphics 
replace") (:exports . "code") (:cache . "no") (:noweb . "no") (:hlines . 
"no") (:tangle . "no") (:session) (:file . "/tmp/foo.png") (:colnames . 
"yes")))
     funcall(org-babel-execute:R "library(ggplot2)\nqplot(c(1, 2, 3), 
c(2, 4, 9))" ((:colname-names) (:rowname-names) (:result-params "file" 
"graphics" "replace") (:result-type . value) (:results . "file graphics 
replace") (:exports . "code") (:cache . "no") (:noweb . "no") (:hlines . 
"no") (:tangle . "no") (:session) (:file . "/tmp/foo.png") (:colnames . 
"yes")))
     (let ((r (funcall cmd body params))) (if (and (eq (cdr (assq 
:result-type params)) (quote value)) (or (member "vector" result-params) 
(member "table" result-params)) (not (listp r))) (list (list r)) r))
     (setq result (let ((r (funcall cmd body params))) (if (and (eq (cdr 
(assq :result-type params)) (quote value)) (or (member "vector" 
result-params) (member "table" result-params)) (not (listp r))) (list 
(list r)) r)))
     (if (member "none" result-params) (progn (funcall cmd body params) 
(message "result silenced")) (setq result (let ((r (funcall cmd body 
params))) (if (and (eq (cdr (assq :result-type params)) (quote value)) 
(or (member "vector" result-params) (member "table" result-params)) (not 
(listp r))) (list (list r)) r))) (let ((file (cdr (assq :file params)))) 
(if file (progn (if result (progn (let (... ...) (unwind-protect ... 
...)))) (setq result file))) (let ((post (cdr (assq :post params)))) (if 
post (progn (let ((*this* ...)) (setq result (org-babel-ref-resolve 
post)) (if file (progn ...)))))) (org-babel-insert-result result 
result-params info new-hash lang)))
     (let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params 
params))) (body (let ((coderef (nth 6 info)) (expand (if 
(org-babel-noweb-p params :eval) (org-babel-expand-noweb-references 
info) (nth 1 info)))) (if (not coderef) expand (replace-regexp-in-string 
(org-src-coderef-regexp coderef) "" expand nil nil 1)))) (dir (cdr (assq 
:dir params))) (default-directory (or (and dir (file-name-as-directory 
(expand-file-name dir))) default-directory)) (cmd (intern (concat 
"org-babel-execute:" lang))) result) (if (fboundp cmd) nil (error "No 
org-babel-execute function for %s!" lang)) (message "executing %s code 
block%s..." (capitalize lang) (let ((name (nth 4 info))) (if name 
(format " (%s)" name) ""))) (if (member "none" result-params) (progn 
(funcall cmd body params) (message "result silenced")) (setq result (let 
((r (funcall cmd body params))) (if (and (eq (cdr ...) (quote value)) 
(or (member "vector" result-params) (member "table" result-params)) (not 
(listp r))) (list (list r)) r))) (let ((file (cdr (assq :file params)))) 
(if file (progn (if result (progn (let ... ...))) (setq result file))) 
(let ((post (cdr (assq :post params)))) (if post (progn (let (...) (setq 
result ...) (if file ...))))) (org-babel-insert-result result 
result-params info new-hash lang))) (run-hooks (quote 
org-babel-after-execute-hook)) result)
     (cond (current-cache (save-excursion (goto-char 
(org-babel-where-is-src-block-result nil info)) (forward-line) 
(skip-chars-forward " 	") (let ((result (org-babel-read-result))) 
(message (replace-regexp-in-string "%" "%%" (format "%S" result))) 
result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info)) 
(result-params (cdr (assq :result-params params))) (body (let ((coderef 
...) (expand ...)) (if (not coderef) expand (replace-regexp-in-string 
... "" expand nil nil 1)))) (dir (cdr (assq :dir params))) 
(default-directory (or (and dir (file-name-as-directory ...)) 
default-directory)) (cmd (intern (concat "org-babel-execute:" lang))) 
result) (if (fboundp cmd) nil (error "No org-babel-execute function for 
%s!" lang)) (message "executing %s code block%s..." (capitalize lang) 
(let ((name (nth 4 info))) (if name (format " (%s)" name) ""))) (if 
(member "none" result-params) (progn (funcall cmd body params) (message 
"result silenced")) (setq result (let ((r ...)) (if (and ... ... ...) 
(list ...) r))) (let ((file (cdr ...))) (if file (progn (if result ...) 
(setq result file))) (let ((post ...)) (if post (progn ...))) 
(org-babel-insert-result result result-params info new-hash lang))) 
(run-hooks (quote org-babel-after-execute-hook)) result)))
     (let* ((params (nth 2 info)) (cache (let ((c (cdr (assq :cache 
params)))) (and (not arg) c (string= "yes" c)))) (new-hash (and cache 
(org-babel-sha1-hash info))) (old-hash (and cache 
(org-babel-current-result-hash))) (current-cache (and new-hash (equal 
new-hash old-hash)))) (cond (current-cache (save-excursion (goto-char 
(org-babel-where-is-src-block-result nil info)) (forward-line) 
(skip-chars-forward " 	") (let ((result (org-babel-read-result))) 
(message (replace-regexp-in-string "%" "%%" (format "%S" result))) 
result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info)) 
(result-params (cdr (assq :result-params params))) (body (let (... ...) 
(if ... expand ...))) (dir (cdr (assq :dir params))) (default-directory 
(or (and dir ...) default-directory)) (cmd (intern (concat 
"org-babel-execute:" lang))) result) (if (fboundp cmd) nil (error "No 
org-babel-execute function for %s!" lang)) (message "executing %s code 
block%s..." (capitalize lang) (let ((name ...)) (if name (format " (%s)" 
name) ""))) (if (member "none" result-params) (progn (funcall cmd body 
params) (message "result silenced")) (setq result (let (...) (if ... ... 
r))) (let ((file ...)) (if file (progn ... ...)) (let (...) (if post 
...)) (org-babel-insert-result result result-params info new-hash 
lang))) (run-hooks (quote org-babel-after-execute-hook)) result))))
     (progn (let* ((c (nthcdr 2 info))) (setcar c 
(org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (cache 
(let ((c (cdr ...))) (and (not arg) c (string= "yes" c)))) (new-hash 
(and cache (org-babel-sha1-hash info))) (old-hash (and cache 
(org-babel-current-result-hash))) (current-cache (and new-hash (equal 
new-hash old-hash)))) (cond (current-cache (save-excursion (goto-char 
(org-babel-where-is-src-block-result nil info)) (forward-line) 
(skip-chars-forward " 	") (let ((result ...)) (message 
(replace-regexp-in-string "%" "%%" ...)) result))) 
((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info)) 
(result-params (cdr ...)) (body (let ... ...)) (dir (cdr ...)) 
(default-directory (or ... default-directory)) (cmd (intern ...)) 
result) (if (fboundp cmd) nil (error "No org-babel-execute function for 
%s!" lang)) (message "executing %s code block%s..." (capitalize lang) 
(let (...) (if name ... ""))) (if (member "none" result-params) (progn 
(funcall cmd body params) (message "result silenced")) (setq result (let 
... ...)) (let (...) (if file ...) (let ... ...) 
(org-babel-insert-result result result-params info new-hash lang))) 
(run-hooks (quote org-babel-after-execute-hook)) result)))))
     (if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2 
info))) (setcar c (org-babel-process-params (car c)))) (let* ((params 
(nth 2 info)) (cache (let ((c ...)) (and (not arg) c (string= "yes" 
c)))) (new-hash (and cache (org-babel-sha1-hash info))) (old-hash (and 
cache (org-babel-current-result-hash))) (current-cache (and new-hash 
(equal new-hash old-hash)))) (cond (current-cache (save-excursion 
(goto-char (org-babel-where-is-src-block-result nil info)) 
(forward-line) (skip-chars-forward " 	") (let (...) (message ...) 
result))) ((org-babel-confirm-evaluate info) (let* ((lang ...) 
(result-params ...) (body ...) (dir ...) (default-directory ...) (cmd 
...) result) (if (fboundp cmd) nil (error "No org-babel-execute function 
for %s!" lang)) (message "executing %s code block%s..." (capitalize 
lang) (let ... ...)) (if (member "none" result-params) (progn ... ...) 
(setq result ...) (let ... ... ... ...)) (run-hooks (quote 
org-babel-after-execute-hook)) result))))))
     (let* ((org-babel-current-src-block-location (or 
org-babel-current-src-block-location (nth 5 info) 
(org-babel-where-is-src-block-head))) (info (if info (copy-tree info) 
(org-babel-get-src-block-info)))) (let* ((c (nthcdr 2 info))) (setcar c 
(org-babel-merge-params (car c) params))) (if (org-babel-check-evaluate 
info) (progn (let* ((c (nthcdr 2 info))) (setcar c 
(org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (cache 
(let (...) (and ... c ...))) (new-hash (and cache (org-babel-sha1-hash 
info))) (old-hash (and cache (org-babel-current-result-hash))) 
(current-cache (and new-hash (equal new-hash old-hash)))) (cond 
(current-cache (save-excursion (goto-char ...) (forward-line) 
(skip-chars-forward " 	") (let ... ... result))) 
((org-babel-confirm-evaluate info) (let* (... ... ... ... ... ... 
result) (if ... nil ...) (message "executing %s code block%s..." ... 
...) (if ... ... ... ...) (run-hooks ...) result)))))))
     org-babel-execute-src-block(nil ("R" "library(ggplot2)\nqplot(c(1, 
2, 3), c(2, 4, 9))" ((:colname-names) (:rowname-names) (:result-params 
"graphics" "replace" "file") (:result-type . value) (:results . 
"graphics replace file") (:exports . "code") (:colnames . "yes") (:file 
. "/tmp/foo.png") (:session) (:tangle . "no") (:hlines . "no") (:noweb . 
"no") (:cache . "no")) "" nil 1 "(ref:%s)"))
     (if org-babel-no-eval-on-ctrl-c-ctrl-c nil 
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block 
current-prefix-arg (org-babel-get-src-block-info nil context)))
     (let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil 
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block 
current-prefix-arg (org-babel-get-src-block-info nil context))))
     (cond ((memq type (quote (inline-babel-call babel-call))) (let nil 
(let ((info (org-babel-lob-get-info context))) (if info (progn 
(org-babel-execute-src-block nil info)))))) ((eq type (quote clock)) 
(let nil (org-clock-update-time-maybe))) ((eq type (quote 
dynamic-block)) (let nil (save-excursion (goto-char 
(org-element-property :post-affiliated context)) (org-update-dblock)))) 
((eq type (quote footnote-definition)) (let nil (goto-char 
(org-element-property :post-affiliated context)) (call-interactively 
(quote org-footnote-action)))) ((eq type (quote footnote-reference)) 
(let nil (call-interactively (function org-footnote-action)))) ((memq 
type (quote (inlinetask headline))) (let nil (save-excursion (goto-char 
(org-element-property :begin context)) (call-interactively (function 
org-set-tags))))) ((memq type (quote (src-block inline-src-block))) (let 
nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil 
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block 
current-prefix-arg (org-babel-get-src-block-info nil context))))) ((eq 
type (quote item)) (let nil (let* ((box (org-element-property :checkbox 
context)) (struct (org-element-property :structure context)) (old-struct 
(copy-tree struct)) (parents (org-list-parents-alist struct)) (prevs 
(org-list-prevs-alist struct)) (orderedp (org-not-nil (org-entry-get nil 
"ORDERED")))) (org-list-set-checkbox (org-element-property :begin 
context) struct (cond ((equal arg ...) "[-]") ((and ... ...) "[ ]") ((or 
... ...) nil) ((eq box ...) "[ ]") (t "[X]"))) (org-list-struct-fix-ind 
struct parents 2) (org-list-struct-fix-item-end struct) 
(org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind struct 
parents) (let ((block-item (org-list-struct-fix-box struct parents prevs 
orderedp))) (if (and box (equal struct old-struct)) (if (equal arg ...) 
(message "Checkboxes already reset") (user-error "Cannot toggle this 
checkbox: %s" ...)) (org-list-struct-apply-struct struct old-struct) 
(org-update-checkbox-count-maybe)) (if block-item (progn (message 
"Checkboxes were removed due to empty box at line %d" ...))))))) ((eq 
type (quote keyword)) (let nil (let 
((org-inhibit-startup-visibility-stuff t) (org-startup-align-all-tables 
nil)) (if (boundp (quote org-table-coordinate-overlays)) (progn (mapc 
(function delete-overlay) org-table-coordinate-overlays) (setq 
org-table-coordinate-overlays nil))) (let ((--data 
(org-outline-overlay-data ...))) (unwind-protect (prog1 (progn ...) 
(org-set-outline-overlay-data --data)) (if (quote use-markers) (progn 
...))))) (message "Local setup has been refreshed"))) ((eq type (quote 
plain-list)) (let nil (let* ((begin (org-element-property 
:contents-begin context)) (beginm (move-marker (make-marker) begin)) 
(struct (org-element-property :structure context)) (old-struct 
(copy-tree struct)) (first-box (save-excursion (goto-char begin) 
(looking-at org-list-full-item-re) (match-string-no-properties 3))) 
(new-box (cond (... "[-]") (... ...) (... "[ ]") (t "[X]")))) (cond (arg 
(let (...) (while --dolist-tail-- ...))) ((and first-box (eq ... begin)) 
(org-list-set-checkbox begin struct new-box))) (org-list-write-struct 
struct (org-list-parents-alist struct) old-struct) 
(org-update-checkbox-count-maybe) (save-excursion (goto-char beginm) 
(org-list-send-list (quote maybe)))))) ((memq type (quote (node-property 
property-drawer))) (let nil (call-interactively (function 
org-property-action)))) ((eq type (quote radio-target)) (let nil 
(call-interactively (function org-update-radio-target-regexp)))) ((eq 
type (quote statistics-cookie)) (let nil (call-interactively (function 
org-update-statistics-cookies)))) ((memq type (quote (table-row 
table-cell table))) (let nil (if (eq (org-element-property :type 
context) (quote table\.el)) (message "%s" (substitute-command-keys 
"\\<org-mode-map>Use `\\[org-edit-special]' to edit table.el tables")) 
(let ((org-enable-table-editor t)) (if (or (eq type ...) (and ... ...)) 
(save-excursion (if ... ... ... ... ...)) (org-table-maybe-eval-formula) 
(cond (arg ...) (...) (t ...))))))) ((eq type (quote timestamp)) (let 
nil (org-timestamp-change 0 (quote day)))) ((null type) (cond 
((org-at-heading-p) (let nil (call-interactively (function 
org-set-tags)))) ((run-hook-with-args-until-success (quote 
org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-0)) (t (funcall 
pcase-1)))) ((run-hook-with-args-until-success (quote 
org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-0)) (t (funcall pcase-1)))
     (let* ((pcase-1 (function (lambda nil (user-error 
(substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful 
here"))))) (pcase-0 (function (lambda nil)))) (cond ((memq type (quote 
(inline-babel-call babel-call))) (let nil (let ((info 
(org-babel-lob-get-info context))) (if info (progn 
(org-babel-execute-src-block nil info)))))) ((eq type (quote clock)) 
(let nil (org-clock-update-time-maybe))) ((eq type (quote 
dynamic-block)) (let nil (save-excursion (goto-char 
(org-element-property :post-affiliated context)) (org-update-dblock)))) 
((eq type (quote footnote-definition)) (let nil (goto-char 
(org-element-property :post-affiliated context)) (call-interactively 
(quote org-footnote-action)))) ((eq type (quote footnote-reference)) 
(let nil (call-interactively (function org-footnote-action)))) ((memq 
type (quote (inlinetask headline))) (let nil (save-excursion (goto-char 
(org-element-property :begin context)) (call-interactively (function 
org-set-tags))))) ((memq type (quote (src-block inline-src-block))) (let 
nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil 
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block 
current-prefix-arg (org-babel-get-src-block-info nil context))))) ((eq 
type (quote item)) (let nil (let* ((box (org-element-property :checkbox 
context)) (struct (org-element-property :structure context)) (old-struct 
(copy-tree struct)) (parents (org-list-parents-alist struct)) (prevs 
(org-list-prevs-alist struct)) (orderedp (org-not-nil ...))) 
(org-list-set-checkbox (org-element-property :begin context) struct 
(cond (... "[-]") (... "[ ]") (... nil) (... "[ ]") (t "[X]"))) 
(org-list-struct-fix-ind struct parents 2) (org-list-struct-fix-item-end 
struct) (org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind 
struct parents) (let ((block-item ...)) (if (and box ...) (if ... ... 
...) (org-list-struct-apply-struct struct old-struct) 
(org-update-checkbox-count-maybe)) (if block-item (progn ...)))))) ((eq 
type (quote keyword)) (let nil (let 
((org-inhibit-startup-visibility-stuff t) (org-startup-align-all-tables 
nil)) (if (boundp (quote org-table-coordinate-overlays)) (progn (mapc 
... org-table-coordinate-overlays) (setq org-table-coordinate-overlays 
nil))) (let ((--data ...)) (unwind-protect (prog1 ... ...) (if ... 
...)))) (message "Local setup has been refreshed"))) ((eq type (quote 
plain-list)) (let nil (let* ((begin (org-element-property 
:contents-begin context)) (beginm (move-marker ... begin)) (struct 
(org-element-property :structure context)) (old-struct (copy-tree 
struct)) (first-box (save-excursion ... ... ...)) (new-box (cond ... ... 
... ...))) (cond (arg (let ... ...)) ((and first-box ...) 
(org-list-set-checkbox begin struct new-box))) (org-list-write-struct 
struct (org-list-parents-alist struct) old-struct) 
(org-update-checkbox-count-maybe) (save-excursion (goto-char beginm) 
(org-list-send-list (quote maybe)))))) ((memq type (quote (node-property 
property-drawer))) (let nil (call-interactively (function 
org-property-action)))) ((eq type (quote radio-target)) (let nil 
(call-interactively (function org-update-radio-target-regexp)))) ((eq 
type (quote statistics-cookie)) (let nil (call-interactively (function 
org-update-statistics-cookies)))) ((memq type (quote (table-row 
table-cell table))) (let nil (if (eq (org-element-property :type 
context) (quote table\.el)) (message "%s" (substitute-command-keys 
"\\<org-mode-map>Use `\\[org-edit-special]' to edit table.el tables")) 
(let ((org-enable-table-editor t)) (if (or ... ...) (save-excursion ...) 
(org-table-maybe-eval-formula) (cond ... ... ...)))))) ((eq type (quote 
timestamp)) (let nil (org-timestamp-change 0 (quote day)))) ((null type) 
(cond ((org-at-heading-p) (let nil (call-interactively (function 
org-set-tags)))) ((run-hook-with-args-until-success (quote 
org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-0)) (t (funcall 
pcase-1)))) ((run-hook-with-args-until-success (quote 
org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-0)) (t (funcall pcase-1))))
     (let* ((context (org-element-lineage (org-element-context) (quote 
(babel-call clock dynamic-block footnote-definition footnote-reference 
inline-babel-call inline-src-block inlinetask item keyword node-property 
paragraph plain-list property-drawer radio-target src-block 
statistics-cookie table table-cell table-row timestamp)) t)) (type 
(org-element-type context))) (if (eq type (quote paragraph)) (progn (let 
((parent (org-element-property :parent context))) (if (and (eq 
(org-element-type parent) (quote item)) (= (line-beginning-position) 
(org-element-property :begin parent))) (progn (setq context parent) 
(setq type (quote item))))))) (let* ((pcase-1 (function (lambda nil 
(user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do 
nothing useful here"))))) (pcase-0 (function (lambda nil)))) (cond 
((memq type (quote (inline-babel-call babel-call))) (let nil (let ((info 
...)) (if info (progn ...))))) ((eq type (quote clock)) (let nil 
(org-clock-update-time-maybe))) ((eq type (quote dynamic-block)) (let 
nil (save-excursion (goto-char (org-element-property :post-affiliated 
context)) (org-update-dblock)))) ((eq type (quote footnote-definition)) 
(let nil (goto-char (org-element-property :post-affiliated context)) 
(call-interactively (quote org-footnote-action)))) ((eq type (quote 
footnote-reference)) (let nil (call-interactively (function 
org-footnote-action)))) ((memq type (quote (inlinetask headline))) (let 
nil (save-excursion (goto-char (org-element-property :begin context)) 
(call-interactively (function org-set-tags))))) ((memq type (quote 
(src-block inline-src-block))) (let nil (if 
org-babel-no-eval-on-ctrl-c-ctrl-c nil 
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block 
current-prefix-arg (org-babel-get-src-block-info nil context))))) ((eq 
type (quote item)) (let nil (let* ((box ...) (struct ...) (old-struct 
...) (parents ...) (prevs ...) (orderedp ...)) (org-list-set-checkbox 
(org-element-property :begin context) struct (cond ... ... ... ... ...)) 
(org-list-struct-fix-ind struct parents 2) (org-list-struct-fix-item-end 
struct) (org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind 
struct parents) (let (...) (if ... ... ... ...) (if block-item ...))))) 
((eq type (quote keyword)) (let nil (let 
((org-inhibit-startup-visibility-stuff t) (org-startup-align-all-tables 
nil)) (if (boundp ...) (progn ... ...)) (let (...) (unwind-protect ... 
...))) (message "Local setup has been refreshed"))) ((eq type (quote 
plain-list)) (let nil (let* ((begin ...) (beginm ...) (struct ...) 
(old-struct ...) (first-box ...) (new-box ...)) (cond (arg ...) (... 
...)) (org-list-write-struct struct (org-list-parents-alist struct) 
old-struct) (org-update-checkbox-count-maybe) (save-excursion (goto-char 
beginm) (org-list-send-list ...))))) ((memq type (quote (node-property 
property-drawer))) (let nil (call-interactively (function 
org-property-action)))) ((eq type (quote radio-target)) (let nil 
(call-interactively (function org-update-radio-target-regexp)))) ((eq 
type (quote statistics-cookie)) (let nil (call-interactively (function 
org-update-statistics-cookies)))) ((memq type (quote (table-row 
table-cell table))) (let nil (if (eq (org-element-property :type 
context) (quote table\.el)) (message "%s" (substitute-command-keys 
"\\<org-mode-map>Use `\\[org-edit-special]' to edit table.el tables")) 
(let (...) (if ... ... ... ...))))) ((eq type (quote timestamp)) (let 
nil (org-timestamp-change 0 (quote day)))) ((null type) (cond 
((org-at-heading-p) (let nil (call-interactively ...))) 
((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) 
(funcall pcase-0)) (t (funcall pcase-1)))) 
((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) 
(funcall pcase-0)) (t (funcall pcase-1)))))
     (cond ((or (and (boundp (quote org-clock-overlays)) 
org-clock-overlays) org-occur-highlights) (if (boundp (quote 
org-clock-overlays)) (progn (org-clock-remove-overlays))) 
(org-remove-occur-highlights) (message "Temporary highlights/overlays 
removed from current buffer")) ((and (local-variable-p (quote 
org-finish-function)) (fboundp org-finish-function)) (funcall 
org-finish-function)) ((org-babel-hash-at-point)) 
((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-hook))) 
((save-excursion (beginning-of-line) (looking-at-p "[ 	]*$")) (or 
(run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) 
(user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do 
nothing useful here")))) (t (let* ((context (org-element-lineage 
(org-element-context) (quote (babel-call clock dynamic-block 
footnote-definition footnote-reference inline-babel-call 
inline-src-block inlinetask item keyword node-property paragraph 
plain-list property-drawer radio-target src-block statistics-cookie 
table table-cell table-row timestamp)) t)) (type (org-element-type 
context))) (if (eq type (quote paragraph)) (progn (let ((parent ...)) 
(if (and ... ...) (progn ... ...))))) (let* ((pcase-1 (function (lambda 
nil ...))) (pcase-0 (function (lambda nil)))) (cond ((memq type (quote 
...)) (let nil (let ... ...))) ((eq type (quote clock)) (let nil 
(org-clock-update-time-maybe))) ((eq type (quote dynamic-block)) (let 
nil (save-excursion ... ...))) ((eq type (quote footnote-definition)) 
(let nil (goto-char ...) (call-interactively ...))) ((eq type (quote 
footnote-reference)) (let nil (call-interactively ...))) ((memq type 
(quote ...)) (let nil (save-excursion ... ...))) ((memq type (quote 
...)) (let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil ... ...))) 
((eq type (quote item)) (let nil (let* ... ... ... ... ... ... ...))) 
((eq type (quote keyword)) (let nil (let ... ... ...) (message "Local 
setup has been refreshed"))) ((eq type (quote plain-list)) (let nil 
(let* ... ... ... ... ...))) ((memq type (quote ...)) (let nil 
(call-interactively ...))) ((eq type (quote radio-target)) (let nil 
(call-interactively ...))) ((eq type (quote statistics-cookie)) (let nil 
(call-interactively ...))) ((memq type (quote ...)) (let nil (if ... ... 
...))) ((eq type (quote timestamp)) (let nil (org-timestamp-change 0 
...))) ((null type) (cond (... ...) (... ...) (t ...))) 
((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) 
(funcall pcase-0)) (t (funcall pcase-1)))))))
     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)

I'm running:

     Emacs  : GNU Emacs 25.1.2 (x86_64-pc-linux-gnu, GTK+ Version 3.20.9)
      of 2016-09-28
     Package: Org mode version 9.0.3 (9.0.3-elpa @ 
/home/hippo/.emacs.d/elpa/org-20161224/)

on Ubuntu 16.10.