org-defblock not working

[Vitus Schäfftlein]

Hello there, and thanks for keeping up your work on org-special-block-extras! I have not been using it for a while since I wasn’t preparing presentations using org-beamer, but now I am at it again. Unfortunately, though, the macro org-defblock does not seem to work for me on the current version (20230721.43). Here is an example definition I use, but I found the problem with any definition:

(org-defblock satz nil (name "" label "" align "" width 0.15)
              "Custom block for the custom satz-environment in LaTeX."
              (let ((changed-name name)
                    (align-one (cond
                                ((equal align 'center) "\\begin{center}\n")
                                ((equal align 'right) "\\begin{flushright}\n")
                                (t "")))
                    (align-two (cond
                                ((equal align'center) "\n\\end{center}")
                                ((equal align 'right) "\n\\end{flushright}")
                                (t "")))
                    (width-two (- 1 width)))
                (cond
                 ((memq backend '(latex beamer))

                  (format "%s\\begin{equation}
\\label{%s}
\\tag{%s}
\\text{\\parbox{%s\\textwidth}{%s}}
\\end{equation}%s \\noindent"
                          align-one label changed-name width-two contents align-two))

                 (backend (format "\n\n      (%s)      \t%s\n" changed-name contents)))))

When using such a block, as for example

#+BEGIN_SATZ :name myname :label mylabel
Example Sentence.
#+END_SATZ

I get the error message Symbol's function definition is void: name.

I had an old version (20220326.1432) flying around so I tried it with that version and everything worked the way I intended it to work. Thus, I suppose that you made some change to some file which blows up org-defblock. Would you be willing to look into this, please?