do-section

[ole]

Hi,

I was just reading what I can do with do-section, really powerful!
But I failed to use the last function:

(transp-section '(1 2 3) '((a a a) (b b b) (c c c)))

throws an error:
-->Undefined operator transp-value in form (transp-value (nth (- elem 1) pattern)).

Maybe wrong parameters, how to use?

(defun transp-section (position pattern)
(let ((out pattern))
(dolist (elem position)
(setq out
(do-section elem
#'(lambda (x)
(symbol-transpose
(transp-value (nth (- elem 1) pattern))
x))
out)))
out))



thanks


ole