[O] Export problem with source code blocks

[Thomas S. Dye]

Aloha all,

The following code block executes fine in the Org buffer, and it
exported cleanly on January 18th, but fails on export to LaTeX with a
recent version of Org from the git repo. Here is the error message:

  executing Emacs-Lisp code block (plos-one-start)...

  Debugger entered--Lisp error: (void-function first)
    (first row)

#+name: plos-one-start
#+header: :var tab=author-table
#+header: :var title="A Regional Chronology"
#+header: :results raw :wrap latex
#+header: :exports results
#+begin_src emacs-lisp
  (defun author-name (recs)
    "Format the author name list."
    (let ((i 0))
      (mapcar (lambda (row)
                (concat (format "%s$^{%d%s" (first row)
                                (incf i)
                                (if (equal "yes" (eighth row)) ",\\ast" ""))
                        (if (equal row (car (last recs))) "}$" "}$,")))
              recs)))
  
  (defun author-affiliation (recs)
    "Format the author affiliation list."
    (let ((i 0))
      (mapcar (lambda (row)
                (format "\\bf{%d} %s, %s, %s, %s, %s" (incf i)
                        (second row) (third row) (fourth row)
                        (fifth row) (sixth row)))
              recs)))
  (defun corresponding-email (recs)
    "Return the corresponding email."
    (mapcar (lambda (row)
              (format "%s" (if (equal "yes" (eighth row)) (seventh row) "")))
            recs))
  
  (let* ((tab (cdr (cdr tab)))
        (a (author-name tab))
        (b (author-affiliation tab))
        (c (corresponding-email tab)))
    (concat (format "\\begin{flushleft}\n{\\Large\n\\textbf{%s}\n}\n\\\\\n" 
title)
            (mapconcat 'identity a "\n") "\n\\\\\n"
            (mapconcat 'identity b "\n\\\\\n")
            "\n\\\\\n$\\ast$ E-mail: "
            (mapconcat 'identity c "\n")
            "\n\\end{flushleft}"))
#+end_src

#+name: author-table
| Author name   | Department                 | Institution           | City     
| State | Country | Email         | Corresponding |
|---------------+----------------------------+-----------------------+----------+-------+---------+---------------+---------------|
| Thomas S. Dye | Department of Anthropology | University of Hawai`i | Honolulu 
| HI    | USA     | address@hidden | yes           |

All the best,
Tom

-- 
T.S. Dye & Colleagues, Archaeologists
735 Bishop St, Suite 315, Honolulu, HI 96813
Tel: 808-529-0866, Fax: 808-529-0884
http://www.tsdye.com