emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Wrong type argument listp on export


From: Dirk Scharff
Subject: Re: [O] Wrong type argument listp on export
Date: Thu, 21 Jul 2011 22:48:06 +0200

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: something.org
Description: Binary data

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) "A<\203
\303A!\202A\211\205[\304    !\205$  :?\205$ G\305U?\205[    
<\203>address@hidden>\307\nJ    !\310\"\202[    ;address@hidden 
!!\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) "A<\203
\303A!\202A\211\205[\304    !\205$  :?\205$ G\305U?\205[    
<\203>address@hidden>\307\nJ    !\310\"\202[    ;address@hidden 
!!\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) "A<\203
\303A!\202A\211\205[\304    !\205$  :?\205$ G\305U?\205[    
<\203>address@hidden>\307\nJ    !\310\"\202[    ;address@hidden 
!!\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) "J     !\211\205
\303\304\n\")\207" [G28405 arg normalized format "%S"] 4](----cl-var--28400-- 
----cl-var--28401-- (:var x . 3))
  apply(#[(G28404 G28405 arg) "J       !\211\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) "J  !\211\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) "J   
!\211\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*+,-./\310\311!\2110\205)address@hidden,\321\322\323\317\324!\227!\"5\325\317\324!\227!+\326
 
6\327\216\330\317\331!\332\"*\32078\206|\333\n\235\3079\3347!\204\251\3155\307\306#\203\251\317\320!\227\335\230\203\2417S7\202\2007T7\202\200\3347!\204\272\336\337+3`{#\210\316\2259
 \204\321\326 6\340\216\3414\316\224{!*+.>\204\340+.B.\326 
6\342\216\311
3\"\210*\343+:\"\211;A@)\211*\2039\326 
6\344\216+<>\203\345\202\346*\n#*\211=\203839|\2103b\210=c\210   
   \2048\3473`,#\210).  `\2029)\311
d\"\210\350\351!.\207" [progress-marker preserve-indent headers body end start 
t nil fboundp interblock ((byte-code "\203\302        
M\210\202\303\302!\210\302\207" [--cl-letf-bound-- --cl-letf-save-- interblock 
fmakunbound] 2)) #[(start end) "\301\302\"\207" [org-export-interblocks mapcar 
#[(pair) "\211A@)\n\"\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\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\302\"\207" 
[save-match-data-internal set-match-data evaporate] 3)) org-remove-indentation 
((byte-code "\301\302\"\207" [save-match-data-internal set-match-data 
evaporate] 3)) assoc ((byte-code "\301\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 <address@hidden> writes:
> 
>> Hi,
>> 
>> On Wed, Jul 20, 2011 at 16:36, Dirk Scharff <address@hidden> 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/


reply via email to

[Prev in Thread] Current Thread [Next in Thread]