The definition of letfn should use ~@body rather than
It's simple enough to fix, but in any case, a workaround
is to insert "block" after the function definitions:
(tst2 x y)
(tst1 (list y x))
block ; broken letfn needs this.
(tst2 'C 'B)