Re: Wrong type argument listp on export

[Dirk Scharff <dirk.scharff@googlemail.com>]

[-- Attachment #1: Type: text/plain, Size: 237 bytes --]

Hi Eric,

thanks again for your support. I pulled again from git (release_7.6.146.g6b389). I'm still having difficulties with this. I'll attach your something.org example from earlier in a slightly modified version to fit this case. 

[-- Attachment #2: something.org --]
[-- Type: application/octet-stream, Size: 78 bytes --]

* Some document 
#+begin_src sh :exports both :var x=3
  echo $x
#+end_src




[-- Attachment #3: Type: text/plain, Size: 9474 bytes --]


When I C-c C-e A on this file i still get the same error.

I'm not good in using debug-on-error yet (and I don't know Lisp at all…), so I'll just paste the trace below this for now. 

Best regards,
Dirk. 

Debugger entered--Lisp error: (wrong-type-argument listp 3)
  copy-seq((x . 3))
  #[(G28402 G28403 arg) "\bA<\203
\303\bA!\202\x0f\bA\211\x19\205[\304	!\205$	:?\205$	G\305U?\205[	<\203>\b@\306\235\203>\307\nJ	!\310\"\202[	;\203Z\b@\311\235\203Z\312\313\307\nJ\314	!!\310\"\315#\202[	)\207" [arg v G28402 copy-seq sequencep 0 (:result-params) sort string< (:results :exports) mapconcat identity split-string " "] 7](----cl-var--28400-- ----cl-var--28401-- (:var x . 3))
  apply(#[(G28402 G28403 arg) "\bA<\203
\303\bA!\202\x0f\bA\211\x19\205[\304	!\205$	:?\205$	G\305U?\205[	<\203>\b@\306\235\203>\307\nJ	!\310\"\202[	;\203Z\b@\311\235\203Z\312\313\307\nJ\314	!!\310\"\315#\202[	)\207" [arg v G28402 copy-seq sequencep 0 (:result-params) sort string< (:results :exports) mapconcat identity split-string " "] 7] ----cl-var--28400-- ----cl-var--28401-- (:var x . 3))
  (lambda (&rest --cl-rest--) (apply #[(G28402 G28403 arg) "\bA<\203
\303\bA!\202\x0f\bA\211\x19\205[\304	!\205$	:?\205$	G\305U?\205[	<\203>\b@\306\235\203>\307\nJ	!\310\"\202[	;\203Z\b@\311\235\203Z\312\313\307\nJ\314	!!\310\"\315#\202[	)\207" [arg v G28402 copy-seq sequencep 0 (:result-params) sort string< (:results :exports) mapconcat identity split-string " "] 7] (quote ----cl-var--28400--) (quote ----cl-var--28401--) --cl-rest--))((:var x . 3))
  #[(G28404 G28405 arg) "\bJ	!\211\x1a\205
\303\304\n\")\207" [G28405 arg normalized format "%S"] 4](----cl-var--28400-- ----cl-var--28401-- (:var x . 3))
  apply(#[(G28404 G28405 arg) "\bJ	!\211\x1a\205
\303\304\n\")\207" [G28405 arg normalized format "%S"] 4] ----cl-var--28400-- ----cl-var--28401-- (:var x . 3))
  (lambda (&rest --cl-rest--) (apply #[(G28404 G28405 arg) "\bJ	!\211\x1a\205
\303\304\n\")\207" [G28405 arg normalized format "%S"] 4] (quote ----cl-var--28400--) (quote ----cl-var--28401--) --cl-rest--))((:var x . 3))
  mapcar((lambda (&rest --cl-rest--) (apply #[(G28404 G28405 arg) "\bJ	!\211\x1a\205
\303\304\n\")\207" [G28405 arg normalized format "%S"] 4] (quote ----cl-var--28400--) (quote ----cl-var--28401--) --cl-rest--)) ((:cache . "no") (:colname-names) (:comments . "") (:exports . "both") (:hlines . "no") (:noweb . "no") (:padline . "") (:padnewline . "yes") (:result-params "replace") (:result-type . value) (:results . "replace") (:rowname-names) (:session . "none") (:shebang . "") (:tangle . "no") (:var x . 3)))
  org-babel-sha1-hash(("sh" "echo $x" ((:cache . "no") (:colname-names) (:comments . "") (:exports . "both") (:hlines . "no") (:noweb . "no") (:padline . "") (:padnewline . "yes") (:result-params "replace") (:result-type . value) (:results . "replace") (:rowname-names) (:session . "none") (:shebang . "") (:tangle . "no") (:var x . 3)) "" nil 0))
  org-babel-exp-src-block(#("echo $x" 0 7 (fontified t font-lock-fontified t line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent)))) #("sh" 0 2 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)) #(":exports" 0 8 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)) #("both" 0 4 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)) #(":var" 0 4 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)) #("x=3" 0 3 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)))
  apply(org-babel-exp-src-block #("echo $x" 0 7 (fontified t font-lock-fontified t line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent)))) (#("sh" 0 2 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)) #(":exports" 0 8 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)) #("both" 0 4 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)) #(":var" 0 4 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t)) #("x=3" 0 3 (wrap-prefix #("  " 0 2 (face org-indent)) line-prefix #("  " 0 2 (face org-indent)) font-lock-fontified t fontified t))))
  byte-code("\306\307\211\211\211\211\211\211\211\211\211\211\x18\x19\x1a^[\x1c\x1d\x1e*\x1e+\x1e,\x1e-\x1e.\x1e/\310\311!\211\x1e0\205)\311K\x1e1\312\216\311\313M\210eb\210`\x15\314\x1e2\315\x0e2\307\306#\203@\x01\316\224\x1e3\316\225\x1e4\317\320!G\x1e,\321\322\323\317\324!\227!\"\x1e5\325\317\324!\227!\x1e+\326 \x1e6\327\216\330\317\331!\332\"*\x1a\320\x1e7\x0e8\206|\333\n\235\x19\307\x1e9\334\x0e7!\204\251\315\x0e5\307\306#\203\251\317\320!\227\335\230\203\241\x0e7S\x167\202\200\x0e7T\x167\202\200\334\x0e7!\204\272\336\337\x0e+\x0e3`{#\210\316\225\x169	\204\321\326 \x1e6\340\216\341\x0e4\316\224{!*\x13\x0e+\x0e.>\204\340\x0e+\x0e.B\x16.\326 \x1e6\342\216\311
\x0e3\"\210*\343\x0e+\x0e:\"\211\x1e;A@)\211\x16*\2039\x01\326 \x1e6\344\216\x0e+\x0e<>\203\x11\x01\345\202\x17\x01\346\x0e*\v\n#*\211\x1e=\2038\x01\x0e3\x0e9|\210\x0e3b\210\x0e=c\210	\2048\x01\347\x0e3`\x0e,#\210).	`\x15\2029)\311
d\"\210\350\351!.\x0f\207" [progress-marker preserve-indent headers body end start t nil fboundp interblock ((byte-code "\b\203\v\302	M\210\202\x0f\303\302!\210\302\207" [--cl-letf-bound-- --cl-letf-save-- interblock fmakunbound] 2)) #[(start end) "\301\302\b\"\207" [org-export-interblocks mapcar #[(pair) "\b\211\x19A@)\n\v\"\207" [pair x start end] 4]] 3] "^\\([ 	]*\\)#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[
\n]" re-search-forward 0 match-string 1 format "[
\n]*[ 	]*#\\+\\(begin\\|end\\)_%s" regexp-quote 2 intern match-data ((byte-code "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-split-string 3 "[ 	]+" "-i" zerop "end" error "unbalanced begin/end_%s blocks with %S" ((byte-code "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-remove-indentation ((byte-code "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) assoc ((byte-code "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "" apply indent-code-rigidly run-hooks org-export-blocks-postblock-hook func type indentation matched types case-fold-search --cl-letf-bound-- --cl-letf-save-- ...] 13)
  org-export-blocks-preprocess()
  org-export-preprocess-string(#("* Some document \n#+begin_src sh :exports both :var x=3\n  echo $x\n#+end_src\n\n\n\n" 0 2 (fontified t face org-level-1 line-prefix nil wrap-prefix #("  " 0 2 (face org-indent))) 2 16 (fontified t face org-level-1 line-prefix nil wrap-prefix #("  " 0 2 (face org-indent))) 16 17 (fontified t) 17 54 (fontified t face org-block-begin-line font-lock-fontified t font-lock-multiline t line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent))) 54 55 (fontified t font-lock-fontified t font-lock-multiline t face org-block-begin-line line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent))) 55 64 (fontified t font-lock-fontified t font-lock-multiline t face org-block line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent))) 64 65 (fontified t font-lock-fontified t font-lock-multiline t face org-block line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent))) 65 74 (fontified t face org-block-end-line font-lock-fontified t font-lock-multiline t line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent))) 74 75 (fontified t face org-block-end-line line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent))) 75 78 (fontified t line-prefix #("  " 0 2 (face org-indent)) wrap-prefix #("  " 0 2 (face org-indent)))) :for-backend ascii :skip-before-1st-heading nil :drawers nil :tags not-in-toc :priority nil :footnotes t :timestamps t :todo-keywords t :tasks t :verbatim-multiline t :select-tags ("export") :exclude-tags ("noexport") :archived-trees headline :add-text nil)
  org-export-as-ascii(nil nil nil "*Org ASCII Export*")
  org-export-as-ascii-to-buffer(nil)
  call-interactively(org-export-as-ascii-to-buffer)
  org-export(nil)
  call-interactively(org-export nil nil)

Am 21.07.2011 um 19:04 schrieb Eric Schulte:

> Aankhen <aankhen@gmail.com> writes:
> 
>> Hi,
>> 
>> On Wed, Jul 20, 2011 at 16:36, Dirk Scharff <dirk.scharff@googlemail.com> wrote:
>>> I narrowed down my problem to the following short example:
>>> 
>>> * My Test Block
>>>  This is a test
>>>  #+source testblock
>>>  #+begin_src python :var x=3 :exports both :results output
>>>  print x*x
>>>  #+end_src
>>> 
>>> executing the source-bock yields the correct result. When exporting this
>>> file however I get the folowing error:
>>> 
>>> Wrong type argument: listp, 3
>> 
>> I can confirm this using Org-mode from git (d8bd43e).  Enabling
>> debugging shows that the problem occurs in ‘org-babel-sha1-hash’ when
>> it tries to run ‘copy-seq’ on ‘(x . 3)’ at line 759.  It doesn’t seem
>> to be specific to Python—using ‘:var foo=bar’ seems to be what
>> triggers it.
>> 
> 
> Thanks Dirk for pointing out this problem and thanks Aankhen for
> isolating the offending line in the code.
> 
> I've just pushed up a fix -- Eric
> 
>> 
>> Aankhen
>> 
> 
> -- 
> Eric Schulte
> http://cs.unm.edu/~eschulte/